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10 
11 
12 
13 
+3 IDENTIFICATION 
16 
4 PRODUCT CODE: AC-8564C-MC 

4 PRODUCT NAME : CZDMHCO DMC-11 FREE RUNNING TESTS 
$ DATE: AUGUST 1980 
it MAINTAINER: DIAGNOSTICS-MERRIMACK 
25 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 

waa FOR ANY ERRORS THAT MAY APPEAR IN THIS 
NT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF I'S SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977, 1980 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THE FUNCTION OF THE DMC11 DIAGNOSTICS IS TO VERIFY THAT THE 
OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE ALL OPERATIONS 
OF THE DMC11 ARE CORRECT IN ITS ENVIRONMENT. 


PARAMETERS MUST BE SET UP TO ALERY THE DIAGNOSTICS TO THE 
DMC11 CONFIGURATION. THESE PARAMETERS ARE CONTAINED IN THE 
STATUS TABLE AND ARE GENERATED IN TWO WAYS: 1) MANUAL 
INPUT = THE OPERATOR ANSWERS QUESTIONS. 2) AUTOSIZING - THE 
PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY. 


CZDMH TESTS THE DMC11-AR AND DMC11-AL _MICRO-PROCESSORS 
(M8200-YA AND M8200-YB), OR THE KMC11 MICROPROCESSOR (M8204). 
FREE RUNNING TESTS ARE PERFORMED. A LINE UNIT (M8201_ OR 
M8202) MUST BE INSTALLED. CZDMH CAN BE USED AS A HEAT TEST 
DIAGNOSTIC BY MANUFACTURING. 


CURRENTLY THERE ARE FIVE OFF LINE DIAGNOSTICS THAT ARE 10 BE 
RUN IN SEQUENCE TO INSURE THAT IF AN ERROR SHOULD OCCUR IT 
WILL BE DETECTED AT AN EARLY STAGE. 


NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 
THE FIVE DIAGNOSTICS ARE: 


DZDMC CREV] BASIC W/R AND MICRO-PROCESSOR TESTS 
DZDME CREV) DOCMP LINE UNIT TESTS 

DZOMF CREV) BITSTUFF LINE UNIT TESTS 

DZDMG CREV] CROM AND JUMP TESTS 

CZDMH CREV] FREE-RUNNING TESTS (HEAT TEST TAPE) 


Mr WNMm— 
“ee ee 


NOTE: THE NAMES OF THESE DIAGNOSTICS MAY VARIE AS THEY ARE UPDATED. 
REQUIREMENTS 

EQUIPMENT 

ANY PDP11 FAMILY CPU (EXCEPT AN LSI-11) WITH MINIMUM 8K MEMORY 

ASR 33 (OR EQUILIVALENT) 


DMC11-AR WITH DMC11-DA OR DMC1I-FA OR 
DMC11-AL WITH DMC11-MA OR DMC11-MD 


SEQ 0002 


me -— 
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STORAGE 


PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABL AND 
BOOTSTRAP LOADER RESIDE. LOCATIONS 1500 THRU 1640; CONTAIN 
THE "STATUS TABLE'’ INFORMATION WHICH IS GENERATED AT START OF 
DIAGNOSTICS BY MANUAL INPUT (QUESTIONS) OR AUTOMATICALLY 
(AUTO=SIZING). THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE 
ALTERED BY THE OPERATOR. 


LOADING PROCEEDURE 

METHOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 
ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH 
AS DISK ,MAGTAPE,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS 
FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC 
MEDIA. 

ABSOLUTE LOADER STARTING ADDRESS *500 


MEMORY * SIZE 


— 
o 
~*~ 
2 NW 


7 
? 
7 
7 
1 
3 
5 


NNN 


PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 
(ALSO PLACE "HALT" SW UP) 


DEPRESS "LOAD ADDRESS* KEY ON CONSOLE AND RELEASE. 


DEPRESS "START KEY' ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 
BE LOADING INTO CPU) 


TRS aa Kae ei rere Pe 
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137 
138 4. STARTING PROCEEDURE 
140 A: SET SWITCH REGISTER TO 000200 
141 B. DEPRESS ‘LOAD ADDRESS’ KEY AND RELEASE 
142 C. SET SWR TO ZERO FOR ‘AUTO SIZING’ OR SWR BITO=1 FOR MANUAL 
143 INPUT (QUESTIONS) OR SWR BIT7=1 TO USE EXISTING PARAMETERS 
144 SET UP BY A PREVIOUS START OR A PREVIOUSLY RUN DMC11 
145 DIAGNOSTIC. 
146 D. DEPRESS ‘START KEY' AND RELEASE. THE PROGRAM WILL TYPE 
147 MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START 
148 UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 
& 
130 MAP OF DMC11 STATUS 
138 PC CSR STATI STAT2 = STAT3 
154 001500 160010 145310 177777 000000 
135 001510 160020 145320 177777 000000 
157 THE PROGRAM WILL TYPE 'R' AND PROCEED TO RUN THE DIAGNOSTIC. 
158 THE ABOVE IS ONLY AN EXAMPLE. THIS WOULD INDICATE THE STATUS 
159 TABLE STARTING AT ADD. 1500 IN THE PROGRAM. IN THIS EXAMPLE 
160 THE TABLE CONTAINS THE INFORMATION AND STATUS OF TWO DMC11'S. 
161 THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
168 1s DONE. FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR 
164 IF THE DIAGNOSTIC WAS STARTED WITH SWOO=1 INDICATING MANUAL 
165 PARAMETER INPUT THEN THE FCLLOWING SHOWS AN EXAMPLE OF THE 
166 QUESTIONS ASKED AND SOME EXAMPLE ANSWERS: 
168 wow MANY DMC11'°S TO BE TESTED?1 
170 CSR ADDRESS?160010 
171 VECTOR ADDRESS?310 
172 BR PRIORITY LEVEL? (4,5,6.7)25 
173 DOES MICRO-PROCESSOR HAVE CRAM? (Y OR N)N 
174 WHICH LINE UNIT? IF NONE TYPE ‘'N'', IF M8201 TYPE ‘l"', IF 
175 M8202 TYPE ‘'2''?1 
176 1S THE LOOP BACK CONNECTOR ON?Y 
177 SWITCH PAC#1 (DDCMP LINE#) 2377 
fe SWITCH PAC#2 (BM873 BOOT ADD) 2377 
180 FOLLCWING THE QUESTIONS THE STATUS MAP IS PRINTED OUT AS 
181 DESCRIBED ABOVE, THE INFORMATION IN THE MAP REFLECTS THE 
182 ANSWERS TO THE QUESTIONS. IF THE DIAGNOSTIC WAS STARTED WITH 
183 SwOO=0 AND $SWO7=0 (AUTO-SIZING) THEN NO QUESTIONS ARE ASKED 
184 AND ONLY THE STATUS-MAP IS PRINTED OUT. IF AUTO-SIZING IS 
185 USED THE STATUS INFORMATION MUST BE VERIFIED TO BE CORRECT 
186 (MATCH THE HARDWARE). IF IT DOES NOT MATCH THE HARDWARE THE 
4 DIAGNOSTIC MUST BE RESTARTED WITH SWOO=1 AND THE QUESTIONS 

NSW ‘ 
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190 
191 
be 4 4.1 CONTROL SWITCH SETTINGS 
194 SW 15 SET: HALT ON ERROR 
195 SW 14 SET: LOOP ON CURRENT TEST 
196 SW 13 SET: INHIBIT ERROR PRINT OUT 
197 SW 12 SET: INHIBIT TYPE OUT/ABELL ON ERROR. 

198 SW 11 SET: INHIBIT ITERATIONS, (QUICK PASS) 

199 Sw 10 SET: ESCAPE TO NEXT TEST ON ERROR 

200 SW 09 SET: LOOP WITH CURRENT DATA 

201 SW 08 SET: CATCH ERROR AND LOOP ON IT 

202 SW 07 SET: a6 PREVIOUS STATUS TABLE. 

203 SW 06 SET: HALT IN ROMCLK ROUTINE BEF ORE CLOCKING 
204 MICRO-PROCESSOR 

205 SW 05 SET: RESERVED 

206 Sw 04 SET: RESERVED 

207 SW 03 SET: RESELECT DMC11°S DESIRED ACTIVE 

208 SW 02 SET: LOCK ON SELECTED TEST 

209 Sw 01 SET: RESTART PROGRAM AT SELECTED TEST 

210 SW 00 SET: BUILD NEW STATUS TABLE FROM QUESTIONS. (IF SW07=0 


AND SWOO=0 A NEW STATUS TABLE IS BUILT BY 
AUTO-SIZING) 


211 

if 

214 SWITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED AS NEEDED 
215 WHILE THE DIAGNOSTIC IS RUNNING. SWITCHES 00-03 AND SWI{CH 07 
216 ARE STATIC, AND ARE USED ONLY ON STARTING OR RESTARTING THE 
217 DIAGNOSTIC. 
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SWITCH REGISTER OPTIONS (AT START UP) 


RESTART PROGRAM AT SELECTED TEST. IT IS STRONGLY 
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE 
TRYING TO SELECT A TEST, THE REASON BEING IS THAT THE 
PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
WHEN THIS SWITCH IS USED THE DIAGNOSTIC WILL ASK TEST 
NO.? ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED 
art. CARRIGE RETURN TO BEGIN EXECUTION AT THE SELECTED 


LOCK ON SELECTED TEST. THIS SWITCH WHEN USED WITH 
SWO1 WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE 
SELECTED TEST. HITTING ANY KEY ON THE CONSOLE WILL 
LET IT ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY 
IS HIT AGAIN. IF SWO2=0 WHEN SWO1 IS USED. _ THE 
PROGRAM WILL BEGIN AT THE MSELECTED TEST AND CONTINUE 
NORMAL OPERATIONS. 


RESELECT DMC11'°S DESIRED ACTIVE. PLEASE NOTE THAT A 
MESSAGE IS TYPED OUT FOR SETTING THE SWITCH REGISTER 
EQUAL TO DMCTT" S ACTIVE. THIS MEANS IF THE SYSTEM HAS 

00,01,02,03 WILL BE SET IN LOC 
° USING THIS 
SWITCH(SWOO) ALTERS THAT LOCATION; THEREFORE IF tous 
DMC11S ARE IN THE SYSTEM ***)Q NOT*** SET SWITCHS 
GREATER THAN SW 03 IN THE UP POSITION. THIS WOULD BE 
A FATAL ERROR. DO NOT SELECT MORE ACTIVE DMC11S THAN 
THERE IS INFORMATION ON IN THE STATUS TABLE. 


A: LOAD ADDRESS 200 

B: START WITH SW 00=1 

C: PROGRAM WILL TYPE MESSAGE 

D: SET A SWITCH FOR EACH DMC DESIRED ACTIVE. 
EXAMPLE: IF YOU HAVE 4 DMC'S BUT ONLY WANT 70 
RUN THE FIRST AND THE LAST SET SWR BITS 0 AND 
3 = 1. PRESS CONTINUE 

E: NUMBER (IF WILL BE IN DATA LIGHTS 


(EXCLUDING 11/ 
Fe SET WITH ANY OTHER SWITCH SETTINGS DESIRED. 
PRESS CONTINUE. 





307 WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 
308 SECTION 4.0 WILL BE PRINTED, AND PROGRAM WILL BEGIN RUNNING 
309 THE DIAGNOSTIC 
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564 | 
= 4.1.3 DYNAMIC SWITCHES 
+44 ERROR SWITCHES 
269 hy SW 12 DELETE PRINT QUT /BELL * ERROR. 
270 i, SW 13 DELETE ERROR ae OuT 
271 « SW 15 HALT ON THE ERRO 
272 4. SW 08 GOTO BEGINNING oF "THE TEST(ON ERROR). 
th 5. SW 10 GOTO NEXT TEST(ON ERROR). 
gs SCOPE SWITCHES 
277 1. $w06 HALT IN  ROMCLK ROUTINE BEFORE CLOCKING 
278 MICRO=PROCESSOR INSTRUCTION. THIS ALLOWS THE 
279 OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN 
280 THE STATIC STATE BEFORE IT IS CLOCKED. HIT 
281 CONTINUE TO RESUME RUNNING. 
282 2. Swo9 (IF ENABLED BY ‘SCOP1') ON AN ERROR; IF AN ‘#’ IS 
283 PRINTED IN FRONT OF THE TEST NO. (EX. *TEST NO. 
284 10 ) $wO9 IS INCORPORATED IN THAT TEST AND 
285 THEREFORE $WO9 IS USUALLY THE BEST SWITCH FOR THE 
286 SCOPE LOOP (SW14=0, Sw10=0, SwO9=1, SwO8=0). IF 
287 SwO9 IS NOT ENABELED; AND THERE IS A HARD ERROR 
288 (CONSTANT); SWO8 IS BEST. (SW14=1,0, Swi0=0, 
289 SwO9=0, SWO8=1). FOR INTERMITTEMT ERRORS; SwW14=1 
290 WILL LOOP ON TEST REGUARDLESS OF ERROR OR NOT 
291 é ERROR. (SW14=1, SW10=0, SWO9=0, SwO8=1,0) 
292 ‘ ; 3. Swi INHIBIT INTERATIONS. 
9° 4. Swi4 LOOP ON CURRENT TEST. 
34] 4.2 STARTING ADDRESS 
297 STARTING ADDRESS IS AT 000200 THERE ARE NO OTHER STARTING 
oe ADDRESSES FOR THE DMC11 DIAGNOSTICS. (SEE SECTION 4.0) 
300 NOTE: IF wand bonne? 1S NON-ZERO THE PROGRAM ASSUMES IT 
301 1S NDER OR XXDP CONTROL AND WILL ACT 
302 ACCORDINGLY atten ALL AVAILABLE DMC11‘S ARE TESTED THE 
ty PROGRAM WILL RETURN TO 'XXDP* OR ‘ACT-11'. 
305 5. OPERATING PROCEDURE 
306 


1D 
7D 
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PROGRAM AND/OR OPERATOR ACTION 
THE TYPICAL APPROACH SHOULD BE 


1. HALT ON ERROR (VIA SW 15=1) WHEN EVER AN ERROR OCCURS. 
3. SET Sw 14: (LOOP ON THIS TEST) 
SET SW 13: (INHIBIT ERROR PRINT OUT) 


THE TEST NUMBER AND PC WILL BE TYPED OUT AND POSSIBILY AN 
ERROR MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERATOR 
AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS _ NECESSARY 
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT; LOOK IN 
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND THEN 
NOTE THE PC OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF 
THE TEST CAN BE DETERMINED. 


ERRORS 


AS DESCRIBED PREVIOUSLY “at WILL ALWAYS BE A TEST NUMBER AND 
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 
12=0). IN MOST CASES ADDITIONAL INFORMATION WILL BE SUPPLIED 
i Big ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF 


ERROR RECOVERY 


IF FOR SOME REASON THE DMC11 SHOULD ‘HANG THE BUS" (GAIN 
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 
AN INIT OR he 3 ~ DOWN/UP IS NECESSARY FOR OPERATOR TO REGAIN 
CONTROL OF CPU IF THIS SHOULD HAPPEN; LOOK IN LOCATION 
‘TSTNO' (ADDRESS 1226)FOR THE NUMBER OF THE TEST THAT WAS 
RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS WAY 
THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DMC11 WAS DOING 
AT THE TIME OF THE ERROR. 


RESTRICTIONS 
STARTING RESTRICTIONS 
SEE SECTION 4. (PLEASE) 


STATUS va SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS 

STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH 

THE" INF ORRAT TON PRINTED ON THE TTY TO COMPLETLY ISOLATE 
LEMS. 
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OPERATING RESTRICTIONS 


THE FIRST TIME A DMC11 DIAGNOSTIC IS LOADED INTO CORE AND RUN 
THE STATUS TABLE MUST BE SET UP. THIS IS DONE BY MANUAL INPUT 
(SWOO=1) OR BY othe tat oo bay AND SWO7=0). 


STATUS TABLE IS OVERLAYED. ‘e CURRENT PARAMETERS IN THE 
STATUS TABLE ARE USED WHEN SWO7=1 ON START UP. 


HARDWARE CONFIGURATION RESTRICTIONS 


DMC11(M8200)- JUMPER Wi MUST BE IN, AND SWITCH 7 OF E76 MUST 
BE IN THE OFF POSITION. 

KMC(M8204)- JUMPER W1 MUST BE IN. 

LINE UNIT(M8201)- JUMPERS Wi, W2, AND W4 MUST BE IN. JUMPERS 
4 wS MUST BE OUT. SWB OF £26 MUST BE IN THE ON 
LINE UNIT (M8202)- JUMPER Wi MUST BE IN. SW& OF E26 MUST BE 
IN THE OFF POSITION. 


MISCELLANEOUS 
EXECUTION TIME 


ALL DMC11 DEVICE DIAGNOSTICS WILL GIVE AN "END PASS‘ MESSAGE 
(PROVIDING NO ERRORS AND SWi2=0) WITHIN 4 MINS. THIS IS 

ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 

POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 

eeeteh PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE 
Y o 


PASS COMPLETE 


NOTE: EVERY TIME THE PROGRAM IS STARTED; ~~ TESTS WILL RUN 
AS IF Swill (DELETE ITERATIONS) WAS UP (=1). THIS IS TO 
"VERIFY NO HARD ERRORS’ AS SOON AS POSSIBLE. THEREFORE THE 
FIRST PASS EACH TIME PROGRAM IS STARTED- WILt BE A ‘QUICK 
PASS’ UNTIL ALL DMC11°S IN SYSTEM ARE TESTED. WHEN THE 
DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 
THE PRINT OUT TO BE EXPECTED. 


END PASS CZDMH CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 


NOTE: THE PASS COUNT AND ERROR COUNTS ARE CUMMULITIVE FOR 
EACH DMC11 THAT IS RUNNING, AND ARE SET TO ZERO ONLY 
WHEN THE DIAGNOSTIC IS STARTED. THEREFORE AFTER AN 
OVERNIGHT RUN FOR EXAMPL E, THE TOTAL PASSES AND ERRORS 
FOR EACH DMC11 SINCE THE DIAGNOSTIC WAS STARTED ARE 
REFLECTED IN PASSES: AND ERRORS:. 
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416 
rt 8.4 KEY LOCATIONS 
419 RETURN (1214) CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN 
420 WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
— TEST IS ASSERTED. 
423 NEXT (1216) CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 
o$3 PEFORMED. 
426 - TSTNO (1226) CONTAINS THE NUMBER OF THE TEST NOW BEING 
427 PEFORMED. 
429 RUN (1316) he tL - "RUN' ALWAYS POINTS TO THE ODMCT11 
430 CURRENT BEING TESTED. EXAMPLE: (RUN) 
431 {30270000000001000000 MEANS THAT DMC11 NO.06 
432 1S THE DMC11 NOW RUNNING. 
434 DMCROO=-DMCR17 
435 DMSTOO-DMST17 
436 (1500) =(1640) 
437 THESE LOCATIONS CONTAIN THE INFORMATION NEEDED 
438 TO TEST UP TO 16 teat oo ot SEQUENTIALY. 
439 THEY CONTAIN THE CSR, VECT AND STATUS 
es CONCERNING THE CONF IGURATION : EACH DMCi1. 
442 DMACTV (1306) EACH BIT SET IN THIS LOCATION INDICATES THAT 
443 THE ASSOCIATED DMC11 WILL BE TESTED IN TURN. 
bas EXAMPLE: (DMACTV) 1276/0000000000011111 MEANS 
445 THAT DMC11 NO. 00,01,02,03,04 WILL BE TESTED. 
446 EXAMPLE: (DMACTV) 1276/6000000000010001 MEANS 
4 THAT DMC11 NO. 00,04 WILL BE TESTED. 
449 DMCSR (1404) CONTAINS THE CSR OF THE CURRENT DMC11 UNDER 
450 TEST. 
rt 8.4A "STATUS TABLE’ (1500-1640) 
454 THE TABLE IS FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER 
455 INPUT (QUESTIONS) AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY 
456 USER; THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO 
457 SUIT THE SPECIFIC CONFIGURATION. 
459 THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS INFORMATION FOR 
460 TWO DMC11°S. THE TABLE CAN CONTAIN UP TO 16 ODMC11'S. 
461 FOLLOWING THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP 
462 ENTRY 
463 
rt MAP OF DMC11 STATUS 
rr PC CSR STATI STAT2 STATS 
468 001500 160010 145310 177777 000000 
469 001510 160020 916320 000000 000000 
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EACH MAP ENTRY CONTAINS 4 WORDS WHICH CONTAIN THE STATUS 

INFORMATION FOR 1 DMC11. THE PC SHOWS WHERE IN CORE MEMORY 

THE FIRST OF THE 4 WORDS IS. IN THE EXAMPLE ABOVE THE FIRST 

DMC'S STATUS IS IN LOCATIONS, 1500, 1502, 1504, AN 

SECOND DMC STATUS IS LOCATED AT 1510, 1512, 1514, AND 6. 

THE INFORMATION CONTAINED IN EACH 4 WORD ENTRY [IS DEFINED AS 
L : 


CSR: CONTAINS DMC11 CSR ADDRESS 


STAT1: BITS 00-08 IS DMC11 VECTOR ADDRESS 
BIT15=1 MICRO-PROCESSOR HAS CRAM 
B1T15=0 MICRO-PROCESSOR HAS CROM 
BIT14=1 TURNAROUND CONNECTOR IS ON 
B1T14=0 NO TURNAROUND CONNECTOR 
B1T13=0 LINE UNIT IS AN M8201 
BIT13=1 LINE UNIT IS AN M8202 
BIT12=1 NO LINE UNIT 
BITS 09-11 IS DMC11 BR PRIORITY LEVEL 
STAT2: LOW BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD) 


STAT3: BITO=1 PERFORM FREE RUNNING TESTS ON KMC 
(MUST BE SET MANUALLY. SEE TEST 1) 
BIT1=0 DMC11-AR (LOW SPEED) 
BIT1=1 DMC11-AL (HIGH SPEED) 


SEQ 0011 




















CZDAH RACY 30A(1052) O8-JUL-80 08:21 PAGE 13 
CZ0MH.P11 08-JUL-80 08:21 


1 | 
SEQ 0012 
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502 

. $03 
ape 8.5 METHOD OF AUTO SIZING 
34 8.5.1 FINDING THE CONTROL STATUS REGISTER. 
508 THE AUTO@SIZING ROUTINE FINDS A DMC11 AS FOLLOWS: IT STARTS 
509 AT ADDRESS 160000 AND TESTS ALL ADDRESS IN poees tens OF 10 UP 
510 TO AND INCLUDING ADDRESS 167760. IF THE ADDRESS DOES NOT TIME 
511 OUT, THE FOLLOWING IS DONE, THE FIRST CROM ADDRESS IS WRITTEN 
512 TO A 125252 THEN he s READ BACK. IF IT CONTAINS A <-1 OR 
513 125252 OR A 626 OR 16520 A_DMC11 OR KMC11 HAS BEEN FOUND, IF 
514 es, a ADDRESS I$ * UPDATED BY 10 AND THE SEARCH 
515 1 DICATES A DMC11 WITH NO CROM, A 125252 hs pel ¢. A KMC11 
516 uiTH, CRAR A 626 INDICATES A DMC11-AL AND A 16520 INDICATES A 
517 DMC11-AR. A FURTHER. TESTS ARE PERFORMED AT TH is. ‘POINT TO 
518 DETERMINE WHICH LINE UNIT, IF ANY, IS INSTALLED, IF A 
519 LOOP=BACK CONNECTOR IS INSTALLED AND VARIOUS SWITCH SETTINGS 
520 ON THE LINE UNIT. THIS IS WHY THE STATUS TABLE MUST BE 
$21 VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 
522 AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 
523 THE og thane MUST BE ANSWERED. ALL DMC11°S IN THE SYSTEM 
524 WILL BE FOUND BY THE AUTO-SIZER. IF IT DOES NOT FIND A_ DMC11 
334 THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS ANSWERED. 
4 8.5.2 FINDING THE VECTOR AND BR LEVEL 
529 THE VECTOR AREA (ADDRESS on IS FILLED WITH THE 
530 INSTRUCTION IOT AND ‘.#2° (NEXT gone THE PROCESSOR 
531 STATUS IS STARTED AT 7 AND THE DMC_IS PROGRAMMED TO INTERRUPT. 
532 THE PS IS LOWERED BY 1 UNTIL THE DMC INTERRUPTS, A DELAY IS 
533 MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 5 (BECAUSE OF A 
534 BAD DMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL 
535 5 AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE 
536 PROBLEM IS FIXED; THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 
537 CORRECT VECTOR. If AN INTERUPT OCCURED; THE ADDRESS TO WHICH 
538 THE DMC11 INTERUPTED TO IS PICKED UP AND REPORTED AS THE 
539 VECTOR. NOTE: If THE VECTOR REPORTED IS NOT THE VECTOR SET 
540 UP BY YOU; THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE 
oa DONE. 
62 ' 8.6 SOFTWARE SWITCH REGISTER 
545 IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A 
546 SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO 
547 ALLOW USER THE SAME SWITCH OPTIONS AS DESCRIBED PREVIOUSLY. 
548 IF . HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
549 AND IT CONTAINS ALL ONES (177777) THIS SOFTWARE SWITCH 
$20 eer IS USED. 
552 TO OBTAIN CONTROL, AT ANY ALLOWABLE TIME tg EXECUTION OF 
553 THE DIAGNOSTIC THE a tg I A CTRL G ON THE CONSOLE 


TERMINAL KEYBOARD. AS SOON AS THE CTRL G 1§ RECOGNIZED, BY 
THE DIAGNOSTIC, THE FOLLOWING WE SSAGE WiLL BE DISPLAYED: 
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SWR=XXXXXKX NEW? 


WHERE XXXXXX IS THE CURRENT CONTENTS OF THE SOFTWARE SWITCH 
REGISTER IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN 
AWAIT OPERATOR ACTION. AT WHICH TIME THE OPERATOR IS REQUIRED 
TO TYPE ONE E 1) 0-7, 2) 
tee FEED(CLE>). sy MCARRIAGE RETURN(<CR>), 

TRL U). NO CHECK IS MADE FOR LEGALITY. 
CHARACTER 13 NOT i <LF>, <CR>, OR CTRL U IT IS ASSUMED TO 
AN OCTAL DIGIT. 


TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES 

EW DESIRED VALUE IN OCTAL = LEADING ZEROS NEED NOT BE 

-__ AND TERWINATES a # INPUT STRING WITH A <CR> OR <LF> 
DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW. 
THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS TYPED. 
AT LEAST ONE DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING 
PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 


WHEN THE INPUT STRING IS oe WITH A <CR> THE DIAGNOSTIC 
TION FROM PO! 


WILL CONTINUE WITHOUT CHANGING THE SSR. THE <LF> DIFFERS FROM 
po gh RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT 


IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO 
THE TERMINATOR THE INPUT VALUE WILL BE DISREGARDED AND THE 
PROMPT DISPLAYED (SWR = XXXXXX NEW?). 


TO SET THE SSR FOR THE STARTING SWITCHES, FIRST LOAD THE 
DIAGNOSTIC, THEN HIT CTRL G, THEN START THE DIAGNOSTIC. 
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02 
000001 


b Gente 08:21 PAGE 15 


> *CZDMHC 3! E RUNNING TESTS 
COPYRIGHT 1 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


—z 


;STARTING PROCEDURE 

;'.0AD PROGRAM 

;LOAD ADDRESS 000200 
;SWR=0 AUTOSIZE DMC11 


:$wO7=1 USE CURRENT DMC11 PARAMETERS 
7SwOO=1 INPUT NEW DMC11 PARAMETERS 


:PROGRAM WIi.. TYPE atin h Fd FREE RUNNING TESTS" 


; PROGRAM WILL TYPE STATUS 

;PROGRAM WILL TYPE ‘'R'’ TO INDICATE THAT TESTING HAS STARTED 
[AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
[AND THEN RESUME TEST ING 

:SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 


SWITCH REGISTER OPTIONS 


$W15=100000 ;=1,HALT ON ERROR 

$w14=40000 ;=1,LO0P ON CURRENT TEST 

$W13=20000 ;=1, INHIBIT ERROR TYPEOUT 

$W12=10000 :=1,DELETE TYPEOUT/BELL ON ERROR. 

$w11=4000 :=1, INHIBIT ITERATIONS 

$w10=2000 7=1,€SCAPE TO NEXT TEST " ERROR 

$w09=1000 7=1,.00P WITH CURRENT DAT 

$w08=400 :=1,LO0P ON ERROR 

$w07=200 :=1 USE CURRENT DMC11 PARAMETERS, =0,AUTOSIZE DMC11 
$W06=100 7=1, HALT BEFORE CLOCKING MICRO- ~PROCESSOR INSTRUCTION 
$w05=40 

5w04=20 

Sw03=10 pRESELECT DMC11'S TO BE TESTED (ACTIVE) 

Sw02=4 ;LOCK ON TEST SELECT 

Sw01=2 ;RESTART PROGRAM AT SELECTED TEST 

Sw00=1 > iNPUT DMC 11 PARAMETERS 


CZDMH =MACY11 30A(1052) 
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CZ20MH.P11 


000000 


000007 


177776 
001200 


0053746 


024646 
022626 


100000 


000001 


C 2 
GENERAL DEFINATIONS AND EFQUIVALENCIES 
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sREGISTER DEF It “IONS 


RO=%0 GENERAL REGISTER 

R1=%1 ;GENERAL REGISTER 

R2=%2 ;GENERAL REGISTER 

R3=%3 ;GENERAL REGISTER 

R4=2%4 :GENERAL REGISTER 

R5=%5 GENERAL REGISTER 

fO=%6 PROCESSOR STACK POINTER 
PC=%7 :PROGRAM COUNTER 


;LOCATION EQUIVALENCIES 


PS=177776 ;PROCESSOR STATUS WORD 
STACK=1200 ;START OF PROCESSOR SIACK 


INSTRUCTION DEFINITIONS 


PUSH1SP=5746 ;DECREMENT PROCESSOR STACK 1 WORD 
POP1SP=5726 ; INCREMENT PROCESSOR STACK 1 WORD 
PUSHRO=10046 ;SAVE RO ON STACK 

POPRO=12600 ;RESTORE RO FROM STACK 
PUSH2SP=24646 ;DECREMENT STACK TWICE 
POP2SP=22626 ; INCREMENT STACK TWICE 

-EQUIV EMT,HLT ;BASIC DEFINITION OF ERROR CALL 


;BIT DEFINITIONS 


*‘ em eeeowoeeeeoeoeee= 


B1T15=100000 
B1T14=40000 
B1T13=20000 
B1T12=10000 
B1T11=4000 
B1T10=2000 
B1IT9=1000 
81T8=400 
B1T7=200 
B1T6=100 
BIT5=40 
B1T4=20 
BI1T3=10 
BIT2=4 
BIT1=2 
BITO=1 





SEQ 0015 


ey 
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700 000000 


704 000024 


000200 
724 000200 000137 
727 001000 
000 005377 
0 104 
729 001200 


00 177570 
02 177570 
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80 08:21 TRAPCATCHER FOR UNEXPECTED INTERUPTS SEQ 0016 


dD 2 
QO8-JUL-80 08:21 PAGE 1 


s Ree eAeReReneeeeeeeeeeenedeeeeteeeeKereeeeteeeeeeeeeeeereneeeeeenee 
;TRAPCATCAER FOR ILLEGAL INTERRUPTS 
THE STANDARD ‘TRAP CATCHER'' IS PLACED 
:BETWEEN ADDRESS 0 TO aes 776. 
:1T LOOKS LIKE *'PC+2 HALT 


: 
; FERRARA AEEEAREAEREERERERATAAATAEAARERARAEAHRAAREARAAAAAEKAKEKAAREAAAAAE TS 


.=0 
STANDARD INTERRUPT VECTORS 


=24 
-PFAIL POWER FAIL HANDLER 
340 “SERVICE AT LEVEL 7 
“HLT “ERROR HANDLER 
340 “SERVICE AT LEVEL 7 
“TRPSRV “GENERAL HANDLER DISPATCH SERVICE 
x 340 “SERVICE AT LEVEL 7 
. 0 :SAVE FOR ACT=11 OR XXDP 
0 RETURN ADDRESS IF UNDER ACT=-11 OR XXDP 
0 “SAVE FOR ACT-11 OR XXDP 
gy SENDAD “FOR USE WITH ACT-11 OR XXDP 
pat ee :ACT=11 PROGRAM CHARACTERISTICS 
(217% 
DISPREG:0 SOFTWARE DISPLAY REGISTER 
SWREG: 0 “SOFTWARE SWITCH REGISTER 
.=200 
002002 JMP “START :GO TO START OF PROGRAM 
.=1000 
055103 046504 MTITLE: .ASCII <377><12>/CZDMHC/<377> 
041515 030461 "AS‘I2Z /DMC11 FREE RUNNING TESTS/<377> 
.=1200 
INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 


DISPLAY:177570 
SWR : 177570 
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CZ7DMH.P11 08-JUL-80 08:21 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0017 

736 

434 s INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS | 

739 

740 001204 177560 TKCSR: 177560 sTELETYPE KEYBOARD CONTROL REGISTER 

741 001206 177562 . TKDBR: 177562 ; TELETYPE KEYBOARD DATA BUFFER 

742 001210 177564 TPCSR: 177564 sTELEPRINTER CONTROL REGISTER 

ey 001212 177566 TPDBR 177566 sTELEPRINTER DATA BUFFER 

a? PROGRAM CONTROL PARAMETERS 

747 

748 001214 000000 RETURN: 0 :SCOPE ADDRESS FOR LOOP ON TEST 

749 001216 000000 NEXT: 0 sADDRESS OF NEXT TEST TO BE EXECUTED 

750 001220 000000 CK: 0 sADDRESS FOR LOCK ON CURRENT DATA 

751 001222 0003 ICOUNT: 3 sNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 

752 001224 000000 LPCNT: 0 s;NUMBER OF ITEREATIONS COMPLETED 

753 001226 0000 TSTNO: 0O ;NUMBER OF TEST IN PROGRESS 

754 001230 0000 PASCNT: 0 sNUMBER OF PASSES COMPLETED 

755 001232 000000 ERRCNT: 0 ; TOTAL NUMBER OF ERRORS 

ie 001234 000000 LSTERR: 0 PC OF LAST ERROR CALL 

758 PROGRAM VARIABLES 

reo pe eee 

761 001236 000000 STRTSW: 0 sSWITCHES AT START OF PROGRAM 

762 001240 000000 STAT: 0 ;DM STATUS WORD STORAGE 

763 00 000000 CLKX 0 

7 001244 000000 MASKX: 0 

765 001246 000000 TEMP1: 0 TEMPORARY STORAGE 

766 001250 000000 TEMP2: 0 s TEMPORARY STORAGE 

767 001252 000000 TEMPS: 0 ; TEMPORARY STORAGE 

768 001254 000000 TEMP4: 0 s TEMPORARY STORAGE 

769 001256 000000 TEMPS: 0 : TEMPORARY STORAGE 

770 001260 000000 SAVRO: 0 RO STORAGE 

771 001262 000000 SAVR1: 0 :R1 STORAGE 

772 001264 000000 SAVR2: 0 :R2 STORAGE 

773 001266 000000 SAVR3: 0 sR3 STORAGE 

774 gery 000000 SAVR4: 0 R4 STORAGE 

775 001272 000000 SAVRS: 0 RS STORAGE 

776 001274 000000 SAVSP: 0 :STACK POINTER STORAGE 

777 001276 000000 SAVPC: 0 ;PROGRAM COUNTER STORAGE 

778 001300 000000 ZERO: 0 

779 001302 000001 ONE : 1 

780 001304 000000 MEMLIM: 0 ;HIGHEST LOCATION FOR NPR'S 

781 001306 000001 DMACTV: .BLKW 1 ;DMC11°S SELECTED ACTIVE. 

782 001310 000001 DMNUM: .BLKW 1 ;OCTAL NUMBER OF DMC11'S. 

783 001312 000001 SAVACT: .BLKWwW 1 sORIGINAL ACTV DEVICES 

784 001314 000001 SAVNUM: .BLKW 1 ; WORKABLE NUMBER 

re 001316 000000 le 0 sPOINTER TO RUNNING DEVICE. 

. Vv 

787 001320 001472 CREAM: DM.MAP-6 ; TABLE POINTER. 

788 001322 001676 MILK: (CNT. MAP=4 : TABLE POINTER 
| 
| 
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789 

790 

791 

792 

793 001324 
794 001325 
795 001326 
796 001327 
797 

798 

799 

800 

801 

802 

803 

804 

805 

806 001330 
807 

808 001330 
809 

810 001332 
811 

812 001334 
813 

814 001336 
815 

816 001340 
817 

818 001342 
819 

820 001344 
821 

822 001346 
823 

824 001350 
825 

826 001352 
827 

828 001354 
829 

830 001356 
831 

832 001360 
833 

834 001362 
835 

836 001364 
837 

838 

8 
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104400 


104416 
005616 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


;PROGRAM CONTROL FLAGS 


INIFLG: .BYTE 
ERRFLG: .BYTE 
LOKFLG: .BYTE 
QV.FLG: .BYTE 


;PROGRAM INITIALIZATION FLAG 
;ERROR OCCURED FLAG 


;LOCK ON ees TEST FLAG 
:QUICK VERIFY F 


SEQ 0018 


LAG. 
;0N FIRST PASS OF EACH DMC11 ITERATIONS WILL BE SUPPRESS 


;DEFINITIONS FOR T8AP SUBROUTINE CALLS 
:POINTERS TO SUBROUTINES CAN BE FOUND 
:1N THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 


SERRA R ARERR EERE EEE AA HERE AE AEER ERAT AERA EAAARAKAHEERAAAE RATER ER EES 


" TRPTAB: 
SCOPE=TRAP+0 


-SCO 
SCOP1=TRAP+1 
S 
TYPE= TRAP +2 
INSTR= TRAPS 
. INST 
INSTER=TRAP +4 
-IN 
PARAM=TRAP+5 
.PAR 
SAVO5=TRAP+6 
- SAV 
RESOS=TRAP+7 
-RESOS 
CONVRT=TRAP+10 
. CONVRT 
CNVRT= ae? 
MSTCLR= ay et F 
-MSTCLR 
DELAY=TRAP+13 
-DELAY 
ROMCLK=TRAP+14 
-ROMCLK 
DATACLK=TRAP+15 
-DATAC 
TIMER=TRAP+16 
. TIMER 


. 
s AeMRAKAHeeReeKetetetetererteeeteereKeeeeteneeeKeteereteresereeenere 


SCOPE LOOP AND ITERATION HANDLER 
LOOP ON CURRENT DATA HANDLER 
TELETYPE OUTPUT ROUTINE 

ASCII STRING INPUT ROUTINE 

INPUT ERROR HANDLER 

NUMERICAL DATA INPUT ROUTINE 
REGISTER SAVE ROUTINE 

REGISTER RESTORE ROUTINE 

DATA OUTPUT ROUTINE 

DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
ISUE A MASTER CLEAR 

DELAY 

CLOCK ROM ONCE 

CLK DATA 

DELAY A CLOCK TICK 


| 
— 























843 001366 
844 001370 
845 001372 


850 001374 
851 001376 
400 


854 001404 
855 001406 
856 001410 
857 001412 
858 001414 
859 
860 
861 
862 
863 001416 
864 
865 
866 
867 
868 
869 
870 001500 
871 001500 
872 001502 
873 001504 


—=-— tate et 
WIN Www 3 


NRwRNRTN @— | 
OfNRO OSNO 


geeg sggg segs Sees 8 
FFFE GEE 


eens 
ofS 
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000000 
000000 
000000 


000000 


000000 
001460 


001500 
000001 


G 2 
20 
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
;DMC11 CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST 


QO8-JUL-80 08:21 PAGE 


STATI: 0 
STAT2: 0 
STATS: 0 


;DMC11 VECTOR AND REGISTER INDIRECT POINTERS 


DMRVEC: 0 ;POINTER TO DMC11 RECEIVER INTERRUPT VECTOR 

CMRLVL: 0 POINTER TO DMC11 RECEIVER INTERRUPT SERVICE PS 
DMTVEC: 0 POINTER TO DMC11 TRANSMITTER INTERRUPT VECTOR 
DMTLVL: 0 POINTER TO DMC11 TRANSMITTER INTERRUPT SERVICE PS 
DMCSR: 0 POINTER TO DMC11 CONTROL STATUS REGISTER 

DMCSRH: 0 POINTER TO DMC11 CONTROL STATUS REGISTER HIGH BYTE. 
DMCTL: 0 ;POINTER TO DMC11 CONTOL OUT REGISTER 

DMPO4: 0 ;POINTER TO DMC11 PORT REGISTER(SEL 4) 

DMPO6: 0 ;POINTER TO DMC11 PORT REGISTER(SEL 6) 


;DMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS 


1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 00 
. 1 ;VECTOR FOR DMC11 NUMBER 00 
DMS200: .BLKW ; ;DDCMP LINE# FOR DMC11 NUMBER 00 


DMS300: .BLKW :3RD STATUS WORD 

DMCRO1: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 01 
ts 1 [VECTOR FOR DMC11 NUMBER 01 

DMS201: .BLKW 1 :DDCMP LINE# FOR DMC11 NUMBER 01 

DMS301: .BLKW 1 33RD STATUS WORD 


DMCRO2: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 02 
DMS102: .BLKW :VECTOR FOR DMC11 R 
1 


NUMBER 02 

. :DDCMP LINE# FOR DMC11 NUMBER 02 

DMS302: .BLKW ;3RD STATUS WORD 

DMCRO3: .BLKW 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 05 
° 1 VECTOR FOR DMC11 NUMBER 0 

DMS203: .BLKW 1 :DDCMP LINE# FOR DMC11 NUMBER 03 

DMS303: .BLKW 1 :3RD STATUS WORD 

DMCRO4: .BLKW ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 04 

DMS104: .BLKW :VECTOR FOR DMC11 NUMBER 04 


1 
1 
DMS204: .BLKW 1 :DDCMP LINE# FOR DMC11 NUMBER 94 
DMS304: .BLKW 1 ;3RD STATUS WORD 


SEQ 0019 


H 2 
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P11 08-JUL-80 08:21 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0020 


001550 000001 DMCROS: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 05 
061552 000001 DMS105: .BLKW 1 :VECTOR FOR DMC11 NUMBER 05 
001554 000001 DMS205: .BLKW 1 ;DDCMP LINE# FOR DMC11 NUMBER 05 
001556 000001 DMS305: .BLKW 1 :3RD STATUS WORD 
001560 000001 DMCRO6: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 06 
001562 000001 DMS106: .BLKW 1 :VECTOR FOR DMC11 NUMBER 06 
001564 000001 DMS206: .BLKW 1 ;DDCMP LINE# FOR DMC11 NUMBER 06 
001566 000001 DMS306: .BLKW 1 :3RD STATUS WORD 
001570 000001 DMCRO7: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 07 
001572 000001 C“S107: .BLKW 1 :VECTOR FOR DMC11 NUMBER 07 
001574 000001 DMS207: .BLKW 1 ;DDCMP LINE# FOR DMC11 NUMBER 07 
001576 000001 DMS307: .BLKW 1 :3RD STATUS WORD 
001600 000001 DMCR10: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 10 
001602 000001 DMS110: .BLKw 1 ;VECTOR FOR DMC11 NUMBER 10 
001604 000001 DMS210: .BLKW 1 ;DDCMP LINE# FOR DMC11 NUMBER 10 
001606 000001 DMS310: .BLKW 1 :3RD STATUS WORD 
001610 000001 DMCR11: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 11 
001612 000001 DMS111: .BLKW 1 ;VECTOR FOR DMC11 NUMBER 11 
001614 000001 DMS211: .BLKW 1 :DDCMP LINE# FOR DMC11 NUMBER 11 
001616 000001 DMS311: .BLKw 1 :3RD STATUS WORD 
001620 000001 DMCR12: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 12 
001622 000001 DMS112: .BLKW 1 VECTOR FOR DMC11 NUMBER 12 
001624 000001 DMS212: .BLKW 1 ;DDCMP_LINE# FOR DMC11 NUMBER 12 
001626 000001 DMS312: .BLKW 1 :3RD STATUS WORD 
001630 000001 DMCR13: .BLKw 1 CONTROL STATUS REGISIER FOR DMC11 NUMBER 13 
001632 000001 DMS113: .BLKW 1 :VECTOR FOR DMC11 NUMBER 13 
001634 000001 DMS213: .BLKW 1 ;DDCMP LINE# FOR DMC11 NUMBER 13 
001636 000001 DMS313: .BLKW 1 :3RD STATUS WORD 
001640 000001 DMCR14: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 14 
001642 000001 DMS114: .BLKW 1 ;VECTOR FOR DMC11 NUMBER 14 
001644 000001 DMS214: .BLKW 1 ;DDCMP LINE# FOR DMC11 NUMBER 14 
001646 000001 DMS314: .BLKW 1 :3RD STATUS WORD 
001650 000001 DMCR15: .BLKw 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 15 
001652 000001 DMS115: .BLKW 1 VECTOR FOR DMC11 NUMBER 15 
1654 000001 DMS215: .BLKW 1 :DDCMP LINE# FOR DMC11 NUMBER 15 
001656 000001 DMS315: .BLKW 1 :3RD STATUS WORD 
001660 000001 DMCR16: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 1¢ 
001662 000001 DMS116: .BLKW 1 ;VECTOR FOR DMC11 NUMBER 16 
1664 000001 DMS216: .BLKW 1 ;DDCMP LINE# FOR DMC11 NUMBER 16 
001666 000001 DMS316: .BLKW 1 75RD STATUS WORD 
001670 000001 DMCR17: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 17 
001672 1 DMS117: .BLKW 1 :VECTOR FOR DMC11 NUMBER 17 
001674 000001 DMS217: .BLKW 1 ;DDCMP LINE# FOR DMC11 NUMBER 17 
001676 000001 DMS317: .BLKW 1 :3RD STATUS WORD 


001700 000000 DM.END: 000000 











956 001702 
957 001702 

001704 
001706 
001710 


001712 
001714 


001716 
001720 


001722 
001724 


001726 
001730 


001732 
001734 
001736 
001740 


001742 
001744 


001746 
001750 


001752 
001754 


001756 
001760 
001762 
001764 
001766 


001770 


001772 
001774 


001776 
002000 
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000000 


000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 


000000 
000000 


0000006 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


;DMC11 PASS COUNT AND ERROR COUNT TABLE 


CNT.MAP: 


PACTOO: 
ERCTOO: 


PACTO1: 
ERCTO1: 


FACTO2: 
ERCTO2: 


PACTO3: 
ERCTC3: 


PACTO4: 
ERCTO4: 


PACTOS: 
ERCTOS: 


PACTO6: 
ERCTO6: 


PACTO?: 
ERCTO?: 


PACT10: 
ERCT10: 


CoO CO CO C0 C00 00 0C0O CO 9390 CO 9020 CO CO CO FCO OO 


;PASS COUNT FOR DMC11 NUMBER 00 
SERROR COUNT FOR DMC11 NUMBER 00 


;PASS COUNT FOR DMC11 NUMBER 01 
;ERROR COUNT FOR DMC11 NUMBER 01 


;PASS COUNT FOR DMC11 NUMBER 02 
SERROR COUNT FOR DMC11 NUMBER 02 


;PASS COUNT FOR DMC11 NUMBER 03 
ZERROR COUNT FOR DMC11 NUMBER 03 


;PASS COUNT FOR DMC11 NUMBER 04 
;ERROR COUNT FOR DMC11 NUMBER 04 


;PASS COUNT FOR DMC11 NUMBER 05 
TERROR COUNT FOR DMC11 NUMBER 05 


;PASS COUNT FOR DMC11 NUMBER 06 
ERROR COUNT FOR DMC11 NUMBER 06 


;PASS COUNT FOR DMC11 NUMBER 07 
;ERROR COUNT FOR DMC11 NUMBER 07 


;PASS COUNT FOR DMC11 NUMBER 10 
;ERROR COUNT FOR DMC11 NUMBER 10 


;PASS COUNT FOR DMC11 NUMBER 11 
ERROR COUNT FOR DMC11 NUMBER 11 


;PASS COUNT FOR DMC11 NUMBER 12 
;ERROR COUNT FOR DMC11 NUMBER 12 


;PASS COUNT FOR DMC11 NUMBER 13 
sERROR COUNT FOR DMC11 NUMBER 13 


;PASS COUNT FOR DMC11 NUMBER 14 
[ERROR COUNT FOR DMC11 NUMBER 14 


;PASS COUNT FOR DMC11 NUMBER 15 
;ERROR COUNT FOR DMC11 NUMBER 15 


;PASS COUNT FOR DMC11 NUMBER 16 
sERROR COUNT FOR DMC11 NUMBER 16 


;PASS COUNT FOR DMC11 NUMBER 17 
[ERROR COUNT FOR DMC11 NUMBER 17 





| 
——s 
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15 14 13 12 «121 


STATI: 


STAT2: 


STATS: 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


— 08:21 PAGE 


FORMAT OF STATUS TABLE 


10 09 08 O07 06 05 04 03 02 01 00 


] I 
* : aS ee ee SE eet ek Be STATI 


I I 
oD Db *f ee Se * * STAT2 


et Ge 
Tele] STAT3 
Se Eee 


CONTAINS DMC11 CSR ADDRESS 


BITS 00-08 IS DMC11 VECTOR ADDRESS 
BIT! MICRO=PROCESSOR HAS CRAM 
MICRO-PROCESSOR HAS CROM 
27222 TURNAROUND CONNECTOR IS ON 
URNAROUND CONNECTOR 
UNIT IS AN M8201 


5 
5 
4 
& T 
3 NE 
; v: UNIT + AN M8202 
I 


NO 
LIN 
Ll 
NO LINE UN 

S baci "er PRIORITY LEVEL 


BIT! 
BIT! 
BIT! 
BIT! 
B1T1 
BIT1 
BITS 09-11 


LOW BYTE IS SWITCH PAC#1 (DDOCMP_LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD) 


eirest DO FREE RUNNING TESTS ON KMC 

(MUST BE SET TO A ONE MANUALLY [PROGRAM DZDMI ONLY)) 
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING 

DZDMG TEST 2 FIRST 

BIT1=1 DMC11-AL LOCAL HIGH SPEED MICRO-CODE 

BIT1=0 DMC11-AR REMOTE LOW SPEED MICRO-CODE 


a ouvunnnnu i 
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CZDMH.P11  08-JUL-80 08:21 PROGRAM INITIALIZATION AND START UP. SEQ 0023 
1060 
1061 PROGRAM INITIALIZATION 
1062 "LOCK OUT INTERRUPTS 
1063 :SET UP PROCESSOR STACK 
1064 ‘SET UP POWER FAIL VECTOR 
1065 “CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
1066 ‘TYPE TITLE MESSAGE 
1068 002 012737 000340 177776 .START: MOV #340,PS :LOCK Our INTERRUPTS 
1069 002010 012706 001200 MOV #STACK, SP :SET UP STACK 
1070 002014 012737 005336 000024 MOV #.PFAIL,a#24  :SET UP POWER FAIL VECTOR 
1071 002022 013737 001310 001314 MOV DMNUM,SAVNUM § :SAVE NUMBER OF DEVICES IN SYSTEM. 
1072 002030 005037 010016 CLR SWFLG “CLEAR SOFT TYPEOUT FLAG 
1073 002034 105037 001325 CLRB —C ERRFLG “CLEAR ERROR FLAG 
1074 002040 105037 001327 CLRB QV. FLG :2ERO QUICK VERIFY FLAG 
1075 002044 012737 001470 001320 MOV #DM.MAP~10,CREAM:GET MAP POINTER 
1076 002052 012737 001676 001322 MOV #CNT.MAP-4_MILK :GET PASS COUNT MAP POINTER 
1077 002 012737 100000 001316 MOV #B1T15,RUN ‘POINT POINTER TO FIRST DEVICE. 
1078 002 012700 001702 MOV #CNT.MAP,RO “PASS COUNT POINTER TO RO 
1079 002072 005020 23$: CLR (RO)+ ‘CLEAR TABLE 
1080 002074 022700 002002 CMP #CNT.MAP+100,RO :DONE YET? 
1081 002100 001374 BNE 23$ [KEEP GOING 
1082 002102 005037 001234 CLR LSTERR SCLEAR LAST ERROR POINTER 
1083 002106 012737 000001 001226 MOV #1, TSTNO “SET UP FOR TEST 1 
1084 002114 012737 002002 001214 MOV #.START,RETURN :SET UP FOR POWER FAIL BEFORE 
1085 [TESTING STARTS 
1086 002122 013746 000006 MOV a#6,-(SP) ‘SAVE CURRENT VECTORS 
1087 00 196 013746 000004 MOV ant, -($P) : 
1088 002132 012737 002166 000004 MOV #6$ an ‘SET UP FOR TIMEOUT 
1089 002140 012737 177570 001202 MOV 7179370 “SET SWR TO HARD SWR ADDRESS 
1090 002146 012737 177570 001200 MOV nyrero. SISPLAY :SET DISPLAY TO HARD SWR ADDRESS 
1091 002154 022777 177777 177020 CMP #-1,aSwR ; REFERENCE HARDWARE SUITCH REGISTER 
1092 002162 001402 BEQ sso [IF = -1 USE SOFT SWR AN 
1093 002164 000407 BR 7$ TF IT EXISTS AND NOT = ~ MUSE HARD SwWR 
109% 002166 022626 6$: CMP (SP)+, (sp) SADJUST STACK 
1095 002170 012737 000176 001202 MOV #SWREG, SWR ‘POINTER TO SOFT SWR 
10% 002176 012737 000174 001200 | MOV #DISPREG,DISPLAY:POINTER TO SOFT DISPLAY REG 
1097 002204 012637 000004 7$: MOV (SP)+, aed :RESTORE VECTORS 
1098 002210 012637 000006 MOV (SP) +. a#6 
1099 002214 105737 001324 TSTB —sINIFLG SHAS INITIALIZATION BEEN PERFORMED 
1100 002220 001006 BNE 208 <BR IF YES 
1101 002222 022737 003522 000042 CMP #SENDAD,@#42 =: IF ACT-11 AUTOMATIC MODE, DON'T TYPE ID 
1102 002230 00140 BEQ 208 
1103 002232 104402 001000 TYPE ,MTITLE :TYPE TITLE MESSAGE 
1106 002236 004737 007606 20$: JSR PC, CKSWR “CHECK FOR SOFT SWR 
1105 002242 017737 176734 001236 MOV asuk, STRTSW SSTORE STARTING SWITCHES 
1106 002250 005737 000042 TST aas2 [1S IT RUNNING IN AUTO MODE? 
1107 002254 001402 BEQ +6 BR IF WO 
1108 002256 005037 001236 CLR STRTSW a YES, CLEAR SWITCHES 
1109 3 032737 000001 001236 BIT #SWOO0, STRTSW F $wOO=1, QUESTIONS ARE ASKED. 
1110 002 00101 BNE 17$ ‘aR 1F SwOd=1 
1111 002272 105737 001236 TSTB = STRTSW SBIT?=1?? 
111 002276 100007 BPL 17% :BR IF SWO7=0 
1113 002 doses? 001306 TST DMACTV TARE ANY DEVICES SELECTED? 
1114 002304 001006 BNE 16$ [BR IF YES 
1115 002306 104402 007154 TYPE, NOACT ‘NO DEVICES SELECTED. 
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DAH.P11 08-JUL-80 08:21 PROGRAM INITIALIZATION AND START UP. SEQ 0024 
1116 002312 000000 HALT ;STOP THE SHOW 

1117 Sse 000776 BR .72 sDISQUALIFY CONTINUE SWITCH 

1118 002316 ede 010512 17$: JSR PC,AUTO.SIZE :GO0 DO THE AUTO SIZE 

1119 002322 105737 001324 16$: — TSTB INIFLG sFIRST TIME? 

1120 posese 001410 BEQ 21$ 3BR IF YES 

1121 0023 105737 001236 TSTB STRTSW :1F USING SAME PARAMETERS DONT TYPE MAP 
$6 002334 100431 BMI 

1123 002336 032737 000006 001236 BIT #BITI'BIT2,STRISW;IS TEST NO. OR LOCK SELECTED 

1124 002344 001403 BEQ 248 :1F NO THEN TYPE STATUS 

1125 002346 Bootes BR 1$ :IF YES DO NOT TYPE STATUS 

1126 002350 005137 001324 218: COM INIFLG sSET FLAG 

1127 002354 104402 224 248: TYPE » XHEAD ; TYPE HEADER 

1128 002360 012704 001500 MOV #OM.MAP,RS :SET POINTER 

1129 002364 010437 001246 5$: MOV R4, TEMP :SET ADDRESS 

1130 002370 Rises 001250 MOV (R4)+, TEMP2 3SET CSR 

1131 002374 1411 BEQ 1$ ;ALL DONE IF ZERO 

1132 002376 012437 001252 MOV (R4)+, TEMPS :SET STATI 

1133 002402 012437 001254 MOV (R4)+, TEMPS SET STAT2 

1134 002406 012437 001256 MOV (R4)+, TEMPS SET STATS 

1135 002412 104410 CONVRT ;TYPE OUT STATUS MAP 

1136 002414 007454 XSTATQ : 

1137 002416 000762 SR + 

is 002420 012700 6001500 1$: MOV #DM.MAP,RO :RO POINTS TO STATUS TABLE 

1140 g FRRARAAAAERAAAAEHETHE RHE HEE HEA AAEREAAEE ARERR EAEAEAAEKAERARAAAE HATERS 
1141 3;*AUTO SIZE TEST 

1142 s:*THIS TEST VERIFYS THAT THE DMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING 
1143 s;®ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
1144 >; *CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,DH,DQ,DU,DUP,.LK,DMC,DZ.KMC). 
1145 s:*1F THERE ARE NO OTHER FLOATING DEVICES BEFORE THE omcil, THE FIRST 
1146 3:*DMC11 ADDRESS IS 760070, KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT 
1147 2 *ADDRESS 760000. THIS TEST MAY REQUIRE 2 OR MORE ATTEMPTS TO GE* THE 
1148 s;*RIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT IT TOLD 
1149 ::*YOU THE FIRST TIME, IT MAY COME BACK AND TELL YOU A DIFFERENT ADDRESS 
1150 s:*THE NEXT TIME YOU RUN IT. PLEASE HAVE PATIENCE, THE FINAL ADDRESS 
1151 sr*WILL BE CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DMCS ARE 
1152 3: *CORRECT). 

1153 peteeeeeeeerereerecererereeerereeereneeeeerereenereerereerrereneeerere 
1154 

1155 002424 013746 000004 MOV aa4 ,-(SP) sSAVE LOC 4 

1156 002430 013746 000006 MOV a#6,-(SP) ;SAVE LOC 6 

1157 002434 005037 000006 CLR are sCLEAR VEC+2 

1158 002440 005037 001252 CLR TEMPS sCLEAR FLAG 

1159 002444 005005 CLR R5 7R5=0=DMC, RS=-1=KMC 

1160 002 011037 001404 AUSTRT: MOV (RO) ,OMCSR :GET NEXT DMC CSR 

1161 002452 001564 BEQ AUDONE :BR IF DONE 

by 002454 005705 TST ;DMC OR KAC? 

1163 002456 Oss BNE 1$ BR IF KMC 

1164 002460 032760 100000 000002 BIT #B1T15,2(R0) ;CHECK FOR DMC CSR 

1165 002 001061 BNE SKIP sSKIP IF NOT DMC 

1168 0024 000404 BR 23 :1TS A DAC SO CONTINUE 

1167 002472 032760 100000 000002 1$: BIT #B1T15,2(R0) :CHECK FOR KMC CSR 

1168 os spore BEQ SKIP sSKIP IF NOT KAC 

1169 00250 Agr aT 002674 000004 2$: MOV @NODEV 084 7SET UP FOR TIMEOUT 

1170 002510 005705 TST R5 ;DMC OR KAC? 

1171 002512 001003 BNE 3$ BR IF KMC 
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DMH.P11 08-JUL-80 08:21 PROGRAM INITIALIZATION AND START UP. SEQ 0025 
7 002514 012703 000006 MOV #6,R3 ins 1S COUNT OF DEVICES BEFORE DMC 
173 002520 ees BR 4$ rr 
174 002522 012703 000010 3$: MOV #10,R3 COUNT OF DEVICES BEFORE KMC 
175 002526 012702 003010 4$: MOV #DEVTAB,R2 aE — TABLE PONTER 
176 002532 012701 160010 MOV #160010,R1 ART ati F ODRESS 190010 
177 002536 005711 FLOAT: TST (R1) SCHECK ADDRESS IN R1 
178 002540 111204 MOVB (R2),R4 sIF NO TIMEOUT, GET NEXT ADDRESS 
179 002542 060401 ADD RRA SIN R1 
180 002544 005201 INC RA : 

181 002546 040401 BIC R4,R1 : 
182 002550 005703 TST R3 sANY MORE DEVICES TO CHECK FOR? 
183 002552 001371 BNE FLOAT ‘BR IF YES 
184 002554 012737 002700 000004 MOV #ERR, a8 sOK ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT 
185 002562 010137 003022 MOV R1,XLOC “SAVE FIRST DMC/KMC ADDRESS 
186 002566 005705 FY: TST R5 [DMC OR KMC? 
187 006378 001005 BNE 1$ ‘BR IF KMC 
188 002572 032760 100000 000002 BIT #B1T15,2(RO) sCHECK FOR DMC CSR 
189 002 001014 BNE SKIP :SKIP IF NOT DM 
190 002602 000404 BR 2$ s1TS A DMC SO CONTINUE 
191 002604 032760 100000 000002 1$: BIT #B1T15,2(RO) [CHECK FOR ¥.IC CSR 
192 002612 001407 BEQ SKIP *SKIP IF NOT KMC 
193 002614 005711 2$: TST (R1) :CHECK DMC ADDRESS 
194 002616 020137 001404 CMP R1,DMCSR ;DOES IT MATCH 
195 ,002622 001411 BEQ OK :BR IF YES 
196 _ 002624 062701 000010 ADD #10,R1 sGET NEXT DMC ADDRESS 
197 002630 000756 BR FY :D0 IT AGAIN 
198 002632 062700 000010 SKIP: ADD #10,R0 ‘SKIP TO NEXT CSR IN TABLE 
199 O11037 001404 MOV (RO) ,DMCSR [GET NEXT CSR 
200 00264 1470 BEQ AUDONE [BR IF DONE 
201 000750 BR FY *ELSE CONTINUE 
208 002646 062700 000010 OK: ADD #10,R0 :SKIP TO NEXT DMC CSR 
203 002652 062737 000010 003022 ADD #10,XLOC ‘UPDATE EXPECTED DAC /KMC ADDRESS 
206 002660 011037 001404 MOV (RO) ,DMCSR :GET NEXT DMC/KMC C 
205 002664 001457 BEQ AUDONE ‘BR IF DONE 
206 002666 013701 903022 MOV XLOC,R1 :GET EXPECTED DMC/KMC ADDRESS 
207 002672 735 FY :¢ 
208 002674 122243 NODEV: CMPB (R2)+,-(R3) [ON TIMEOUT, INC R2, DEC R3 
209 002676 000002 T] :R N 
210 002700 005737 001252 ERR: TST TEMPS [CHECK FLAG IF = 0 TYPE HEADER 
211 002704 001014 BNE 1$ [SKIP HEADER 
ge 0027: 104402 TYPE :TYPEOUT HEADER MESSAGE 
213 00271 9072¢ CONERR ‘CONFIGURATION ERROR! !!! 
214 002712 012737 002700 001276 MOV #ERR, SAVPC >SAVE PC FOR TYPEOUT 
215 002720 104411 CNVRT s TYPE OUT ERROR PC 
216 002722 002770 ERRPC ; 
217 002724 10440 TYPE :TYPE REST OF HEADER 
218 002726 00727 CNERR : 
219 002730 012737 177777 001252 MOV #-1, TEMPS :SET FLAG SO IT ONLY GETS TYPED ONCE 
20 73% 010137 001262 1$: MOV R1,SAVR1 :SAVE R1 FOR TYPEOUT 
3] 99 742 104410 CONVRT 
744 002776 CONTAB sTYPE CSR VALUES 
223 002746 005705 TST RS :DMC OR KMC ? 
326 0027 1003 BNE 3$ :BR IF KMC 
§ 002752 10440 TYPE 
226 002754 00732 DMCM 
227 002756 0004 BR 4$ ; CONTINUE 
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CZDMH.P11 08-JUL-80 PROGRAM INITIALIZATION AND START UP. SEQ 0026 
1228 002760 104402 38: TYPE 
1229 002762 007330 KMCM 
1230 002764 022626 - 4$: CMP (SP)+,(SP)+ :ADJUST STACK 
1231 002766 000727 BR Ok ‘BR TO GET OUT 
1288 002770 000001 ERRPC: 1 
12 90¢77¢ 006 002 .BYTE 6,2 
1234 002774 001276 SAVPC 
1235 002776 000002 CONTAB: 2 
1236 003000 006 004 -BYTE 6,4 
1237 003002 003022 KLOC 
1238 003004 006 002 .BYTE 6,2 
1239 003006 001404 DMCSR 
1240 003010 007 DEVTAB: .BYTE 7 :DJ 
1241 003011 017 “BYTE 17 ‘DH 
24g 003012 007 BYTE 7 :DQ 
1243 003013 007 BYTE 7 :DU 
1244 003014 007 BYTE 7 ‘DUP 
1245 003015 007 BYTE 7 LK 
1246 003016 007 BYTE 7 = DMC 
1247 003017 ~~. 007 BYTE 7 702 
1248 003020 007 BYTE 7 KMC 
1249 003022 EVEN 
1250 003022 000000 XLOC: 0 
1251 003024 005705 AUDONE: TST RS DMC? 
1252 003026 001005 BNE 1$ :BR IF KMC AND ALL DONE 
1253 003030 012705 177777 MOV #-1,R5 [SET RS TO -1 (KMC) 
1254 003034 012700 001500 MOV #0M.MAP,RO SRESET RO TO START OF TABLE 
1255 003040 2 . BR AUSTRT :G0 DO KMC' 
1256 003042 Bioes 000006 1$: MOV (SP)+,a#6 iRE STORE Loc : 
1257 003046 012637 000004 MOV (SP) +, 084 *RESTORE LOC 4 
1258 003052 032737 000010 001236 BIT #SWO3,STRTSW ==; SELECT SPECIFIC DEVICES?? 
1259 003060 001422 , BEQ 3$ F NO. 
1260 003062 104402 006144 TYPE  ,MNEW ITYPE THE MESSAGE. 
1261 003066 005000 CLR RO : ZERO DATA LIGHTS 
1268 003070 000000 HALT ‘WAIT FOR USER To TELL WHAT DEVICES TO RUN 
1263 003072 027737 176104 001312 CMP a@SWR,SAVACT [1S THE NUMBER VALID? 
1264 003100 101404 BLOS = «2S “BR IF NUMBER 13 OK. 
1265 003102 104402 006005 . TYPE  ,MERR :TELL USER yr INVALID NUMBER. 
1266 003106 HALT :STOP EVERY THING. 
1267 003110 000776 BR .-2 + RESTART THE PROGRAM AGAIN. 
1268 003112 017737 176064 001306 2%: MOV @SWR,DMACTV [GET NEW DEVICE PATTERN 
1269 003120 013700 001306 MOV DMACTV,RO :SHOW THE USER WHAT HE SELECTED. 
1270 003124 000000 HALT [CONTINUE DYNAMIC SWITCHES. 
1271 003126 012700 000300 3$: MOV #300,R0 [PREPARE TO CLEAR THE FLOATING 
127 003132 012701 000302 MOV #302,R1 -  $VECTOR AREA. 300-776 
1273 003136 010120 4$: MOV R1, (RO)+ ?START PUTTING "PC+2 = HALT” 
1274 003140 005021 CLR (ride [IN VECTOR AREA. 
1275 003142 022021 CMP (RO)+, (R1)¢ [POP POINTERS 
1276 003144 022700 001000 CMP #1000.R0 TALL DONE?? 
1e7? 003150 001372 BNE 4$ BR IF NO. 
1279 :TEST START AND RESTART 
iso 3 se eeon ee ween war eZ ewrorrerve a= 
1282 003152 012706 001200 .BEGIN: MOV #STACK,SP :SET UP STACK 
1283 003156 013746 000006 MOV are, -(SP) 7SAVE LOC 6 
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PROGRAM INITIALIZATION AND START UP. SEQ 0027 
aa4 ,-(SP) sSAVE LOC 4 
RO ;START AT O 
#23084 ;SET UP FOR TIME OUT 
a#6 ;TO AUTOSIZE MEMORY 
(RO)+ ;CHECK ADDRESS IN 20 
#157776,R0 ;1S IT AT LEAST 28k 
6$ ;BR 'F NO 
#7776,R0 ;SAVE 2K FOR MONITORS 
RO,MEALIM ;STORE MEMORY LIMIT 
(SP)+,a84 ;RESTORE LOC 4 
(SP)+,a#6 7 A 6 


108 ; CONTINU 
(SP)+,(SP)+ sADJUST STACK 


#4 RO ‘GET LAST GOOD ADDRESS 
#7776,RO “SAVE 2K FOR MONITORS 
#30006,R0 :1S IT 8K? 

7$ ;BR IF NO 

#37400,R0 ‘IF 8K DON'T SAVE 2k 

#340,PS ‘LOCK OUT INTERRUPTS 
WBIT,STRTSW | :CHECK FOR LOCK ON TEST 

1$ ‘BR IF NO LOCK DESIRED. 
MLOCK “TYPE LOCK SELECTED. 

#NOP ,TTST “ADJUST SCOPE ROUTINE. 
#NOP.TTST#2 ‘SET UP TO LOCK 

3$ :CONTINUE ALONG. 

BRW,TTST “PREPARE NORMAL SCOPE ROUTINE 
BRX.TTST#2 “LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 


@CYCLE,RETURN  ;START AT ‘'CYCLE’’ FIND WHICH DEVICE TO TEST 
#SwO1,STRTSW 1S TEST NO. SELECTED? 
5$ ;BR IF YES 


-MR ; TYPE R 
@RETURN START TESTING 


MH MACY11 30A(1052) O8-JUL-80 08:21 PAGE 29 
mH .P11 08-JUL-80 08:21 END OF PASS ROUTINE SEQ 0028 
317 sEND OF PASS 
318 :TYPE NAME OF TEST 
319 sUPDATE PASS COUNT 
320 CHECK FOR EXIT TO ACT=11 
$53 *RESTART TEST 
323 003364 000005 EOP: RESET ;MAKE THE WORLD CLEAN AGAIN. 
324 003366 005037 001234 CLR LSTERR :CLEAR LAST ERROR PC 
325 003372 105037 001325 CLRB ERRFLG CLEAR ERROR FLAG 
326 003376 005237 001230 INC PASCNT sUPDATE PASS COUNT 
327 003402 013777 001230 175570 MOV PASCNT,@DISPLAY ;DISPLAY PASS COUNT 
328 003410 104402 005733 TYPE »MEPASS ; TYPE END PASS 
329 003414 104402 006072 TYPE »MCSRX ; TYPE CSR 
330 003420 104411 003546 CNVRT ,XCSR :SHOW IT 
331 003424 104402 006100 TYPE »MVECK ; TYPE VECTOR 
332 003430 104411 003554 CNVRT »XVEC :SHOW IT 
333 003434 104402 006106 TYPE ,MPASSX : TYPE PASSES 
334 003440 104411 003562 CNVRT »XPASS ;SHOW IT 
335 003444 104402 006117 TYPE »MERRX : TYPE ERRORS 
336 003450 104411 003570 CNVRT » XERR :SHOW IT 
337 003454 013706 001322 MOV MILK,RO :GET POINTER TO PASS COUNT 
338 003460 013720 001230 MOV PASCNT, (RO)+ sSTORE PASS COUNT FOR THIS DMC11 
339 003464 013720 001232 MOV ERRCHT, (RO)+ :STORE ERROR COUNT FOR THIS DMC11 
340 003470 005337 001314 DEC SAVNUM sARE ALL DEVICES TESTED? 
341 003474 001017 BNE RESTRT :BR IF NO. 
342 003476 112737 000377 001327 MOVB #377,QV.FLG :SET THE QUICK VERIFY FLAG. 
343 003504 013737 001310 001314 MOV DMNUM, SAVNUM sRESTORE THE COUNT 
re 003312 013701 000042 MOV a#42,R1 :CHECK FOR ACT-11 OR DOP 
5 003516 001406 BEQ RESTRT :IF NOT, CONTINUE TESTING 
346 003520 000005 RESET sSTOP THE SHOW--CLEAR THE WORLD 
347 003522 SENDAD: 
348 003522 004711 JSR PC,(R1) 
349 003524 000240 NOP 
350 003526 000240 NOP 
351 003530 000240 NOP 
352 003532 240 NOP 
353 003534 012737 010060 001214 RESTRT: MOV #CYCLE,RETURN 
354 003542 37 010060 JMP CYCLE 
355 003546 000001 XCSR: 1 
356 003550 06 002 -BYTE 6,2 
357 003552 001404 DMCSR 
358 003554 000001 XVEC: 1 
359 003556 004 002 -BYTE 4,2 
360 003560 001374 DMRVEC 
361 003562 1 XPASS: 1 
9] 003564 06 002 -BYTE 6,2 
363 0035 001230 PASCNT 
364 003570 1 KERR: 1 
365 003572 006 002 -BYTE 6,2 
306 003574 001232 ERRCNT 
s :SCOPE LOOP AND INTERATION HANDLER 
370 
371 003576 004737 007606 .SCOPE: JSR PC, CKSWR :CKECK FOR SOFT SWR 
372 003602 010016 MOV RO, (SP) :SAVE RO ON THE STACK 
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CZDMH.P11 08-JUL-80 08:21 
1373 003604 032777 040000 175370 BIT 
1374 003612 001407 TTST:  BEQ 
1375 003614 000437 BR 
1376 003616 005737 003734 TST 
1377 003622 001434 BEQ 
1378 003624 005037 003734 CLR 
1379 0036 000415 BR 
1380 003632 032777 004000 175342 I$: BIT 
1381 003640 001011 BNE 
1382 003642 105737 001327 TSTB 
1383 003646 001406 BEQ 
1384 003650 005237 001224 7 INC 
1385 903654 023737 001224 001222 CMP 
1386 003662 101414 BLOS 
1387 003664 105037 001325 2$: CLRB 
1388 003670 005037 001224 CLR 
1389 003674 005037 001220 CLR 
1390 003700 012737 000020 001222 MOV 
1391 003706 013737 001216 001214 MOV 
1392 003714 011600 3$: MOV 
1393 003716 022626 POP2SP 
1394 003720 013701 001404 MOV 
1395 003724 000177 175264 JMP 
1396 003730 001407 BRW: 1407 
1397 003732 000437 BRX: 437 
1398 003734 000000 DONE 0 
1399 
1400 : 
1401 : 
1402 
1403 003736 004737 007606 -SCOP1: JSR 
1404 003742 032777 001000 175232 BIT 
1405 003750 001405 BEQ 
1406 003752 005737 001220 TST 
1407 003756 140 BEQ 
1408 003760 013716 001220 MOV 
1409 003764 000002 1$: RTI 
1410 
1411 
1412 : 
1413 
1414 003766 010546 TYPE: MOV 
1415 003770 017605 000002 MOV 
1416 003774 062766 000002 000002 ADD 
1417 004002 005737 010016 4$: TST 
1418 004006 001004 BNE 
1419 004010 032777 010000 175164 BIT 
1420 004016 001012 BNE 
1421 004020 105715 1$: TSTB 
1422 004022 100002 BPL 
1423 pees Ipsa06 005672 TYPE 
1424 0040 105777 175154 23: TSTB 
1425 004034 100375 BPL 
1e$8 0040 112577 175150 MOVB 
14 004042 001357 BNE 
1428 004044 012605 3$: MOV 


#B1T14,aSwR 
1$ 


3$ 
DONE 
3$ 


DONE 

2$ 
#Swil,aswr 
2$ 

QV.FLG 

2$ 

LPCNT 
LPCNT, ICOUNT 
3$ 

ERRFLG 
LPCNT 

LOCK 

#20, [COUNT 
NEXT ,RETURN 
(SP) ,RO 


DMCSR,R1 
@RETURN 


PC,CKSWR 
ade omen 


LOCK 
1$ 


LOCK, (SP) 


R5,-(SP) 
a2(SP),R5 
#2,2(SP) 
SWFLG 

1$ 
#SW12,aSWR 
3$ 

(R5) 


23 
-MCRLF 
aTPCSR 


es 
Sl aeleamen 
(SP)+,R5 


d 3 


| 
—— 


ERROR, SCOPE, ETC) 


:‘LOOP ON THIS TEST’? 
:BR - (IF LOCK SwO1=1 1 
(IF LOCK SwO1=1; 


‘BR IF NO (LOCKED ON TEST) 
iYES, CLEAR F LAG 
GO TO NEXT 


SEQ 0029 


THIS LOC 
THIS LOC 


TEST 
:DELETE | pestle (QUICK PASS) 
; HAVE Slt ma 
:BR IF QUICK 
; UPDATE ITERATION’ COUNTER 
;ARE ALL ITERATIONS DONE?? 
:BR IF NOT YET 
;PREPARE FOR NEW TEST 
;START ICOUNTER AT 0 


;RESET ee 

:GET NEXT TEST 

;POP RO OFF OF THE STACK 
;FAKE AN ‘'RTI"’ 

:R1 CONTAINS BASE DML ADDRESS 
:G0 DO THE TEST 


;CHECK FOR SOFT SWR 
31S SwWO9=1(SET)? 
:@R IF NOT SET. 


;GOTO THE ADDRESS IN LOCK. 
;GO BACK. 


; INHIBIT ALL PRINT 

:BR IF NO PRINT OUT WANTED (SW12=1) 
71S NUMBER MINUS? (MSB=1(BI1T7)) 

BR IF NUMBER IS PLUS 

;TYPE A CR/LF! 

;TTY READY? 


7BR IF NO, 
;PRINT CURRENT CHAR. 
;1F NOT ZERO KEEP PRINTING! 


;SAVE R5 ON THE STACK. 

:GET ADDRESS OF MESSAGE. 

:POP OVER ADDRESS. 

SOFT SWR MESSAGE? 

cIF YES TYPE IT a OF Swi2 
TEND OF OUTPUT. RESTORE RS 
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CZDMH.P11 OB8-JUL-8 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0030 
1429 004046 000002 RTI :G0 HOME 
1081 BME I CS 
1432 004050 010346 INSTR: MOV R3,-(SP) :SAVE R3 ON STACK 
1433 004052 010446 Ov RG. =(SP) “SAVE R& ON STACK 
1434 004054 017637 000004 004072 MOV aa (SP), MSG 
1435 004062 062766 000002 000004 ADD #2,4(SP) 

1436 004070 104402 ~INST1: TYPE 

1437 004072 000000 .MSG: 

1438 004074 012704 007502 MOV #INBUF ,R4 
1439 004100 012703 000007 MOV #7,R3 

1440 006104 105777 175074 18: TSTB = @TKCSR 

1441 004110 100375 BPL 1$ 

1442 006112 117714 175070 MOVB  @TKDBR, (R4) 
1443 004116 142714 000200 B1CB #200, (R4) 
1444 004122 122427 000015 CMPB (R4)+, #15 
1445 004126 001417 BEQ INSTR2 

1446 006130 105777 175054 2$: TSTB = @TPCSR 

1447 004134 100375 BPL 23 

1448 006136 017777 175044 175046 MOV @TKDBR,aTPOBR 
1449 004144 005303 DEC R3 

1450 004146 001356 BNE 1$ 

1451 004150 012604 MOV (SP)+,R4 

1452 004152 012603 MOVs (SP) #3 
1453 004154 104402 005666 LINSTE: TYPE MQM 

1454 004160 010346 MOV. —sR3, (SP) 
1455 004162 010446 MOV R4.=(SP) 

1456 004164 000741 BR INSTI 

1457 004166 012604 INSTR2: MOV (SP)+,R4 SRESTORE RG 
1458 004170 012603 MOV (SP) +_R3 “RESTORE R3 
1459 004172 000002 RTI 

4 

1461 :CONVERT ASCII STRING TO OCTAL 
1462 t pueceeoscesceneccscecencceoss 
1463 

1464 006174 010546 PARAM: MOV RS,-(SP) 

1465 006176 010446 MOV RG. =(SP) 

1466 004200 016605 000004 MOV 4(§P),R5 

1467 004204 012537 004364 MOV (R5)+,LOLIM 
1468 004210 012537 004366 MOV (R5)+,HILIM 
1469 seg fh 012537 004370 MOV (R5)+,DEVADR 
1470 004220 112537 004372 MOVB (R5)+,LOBITS 
1471 004224 112537 004373 MOV8 (R5)+, ADRCNT 
1472 004230 010566 000004 MOV RS,4(SP) 

1473 004234 005005 PARAM1: CLR RS 

1474 004236 012704 wv7502 MOV #INBUF ,R4 
1475 ppeeee 122714 CMPB #15, (R4) 

1476 004266 001420 BEQ PARERR 

1477 004250 121427 000060 1$: CMPB (RG) , #60 

1478 006254 002415 BLT PARERR 

1479 004256 121427 000067 CMPB (RG) , #67 
1480 004262 003012 BGT PARERR 

1481 004264 16g7i4 000060 BICB #60, (R4) 

1482 006270 152405 BISB ss (RG) +, RS 

1483 004272 122714 000015 CMPB #15, (R4) 

1484 004276 001406 BEO LIMITS 
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ENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


Q8-JUL-80 08:21 PAGE 
08-JUL-80 08:21 G 


ASL R5 

ASL R5 

ASL R5 

BR 1$ 
PARERR: INSTER 

BR PARAM] 


TEST TO SEE IF NUMBER IS WITHIN LIMITS 


LIMITS: CMP R5,HILIM 
BHI PARERR 
CMP R5,LOLIM 
BLO PARER 
BITB LOBITS,R5 
BNE ARER 


;STORE NUMBER AT SPECIFIED ADDRESS 
MOV DEVADR ,R4 


1$: MOV R5,(R4)+ 
ADD #2,R5 
DECB ADRCNT 
BNE 1$ 
MOV (SP)+,R4 
MOV (SP)+,R5 
RTI 

LOLIM: 0 

HILIM: 0 

DEVADR: 0 


LOBITS: 0 
ADRCNT=LOBITS+1 


SAVE PC OF TEST THAT FAILED AND RO-R5 


-SAVOS: MOV 4(SP),SAVPC SAVE R7 (PC) 
;SAVE RO-R5 

SvO5: MOV RS,SAVR5S ;SAVE RS 
MOV R4,SAVRS SAVE R4 
MOV R3,SAVR3 7SAVE R3 
MOV R2,SAVR2 sSAVE R2 
MOV R1,SAVR1 ;SAVE RI 
MOV RO, SAVRO ;SAVE RO 
RTI ;LEAVE. 
;RESTORE RO-R5S 

-RESOS: MOV SAVRO,RO ;RESTORE RO 
MOV SAVR1,R1 RESTORE R1 
MOV SAVR2,R2 ;RESTORE R2 
MOV SAVR5,R5 GRESTORE R53 
MOV SAVR4 ,R4 RESTORE R4 
MOV SAVRS,RS ;RESTORE RS 


— | 


SEQ 0031 
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C2DMH.P11 08-JUL-80 08:21 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0032 
154) 004464 000002 RTI SLEAVE 
\eez : CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
1545 ; 
1546 004466 104402 005672 .CONVR: TYPE /MCRLE 
1547 004472 010046 ~CNVRT: MOV RO,-(SP) 
1548 004474 010146 MOV R1,-(SP) 
1549 004476 010346 MOV R3,-(SP) 
1550 004500 010446 MOV R4,=(SP) 
1551 004502 010546 MOV R5,-(SP) 
1552 004504 017601 000012 MOV a12(SP),R1 
1553 004510 062766 000002 000012 ADD #2,12(SP) 
1554 004516 01213 004710 MOV (R1)¢,WROCNT 
1555 004522 112137 004712 1$: MOVB (R1)+,CHRCNT 
1556 004526 112137 004713 MOVB (R1)+,SPACNT 
1557 006532 013137 004714 MOV a(R1)+,BINWRD 
1558 004536 122737 000003 004712 CMPB ss #3, CHRCNT 
1559 004544 001003 BNE 2$ 
1560 004546 042737 177400 004714 BIC #177400, BINWRD 
1561 0045546 013704 004714 2$: MOV BINWRD ,R4 
1562 004560 113705 004712 MOVB  CHRCNT,RS 
1563 004564 012700 001416 MOV #TEMP RO 
1564 004570 010403 3$: MOV R4_R 
1565 004572 042703 177770 BIC #177770,R3 
1566 004576 062703 000060 ADD #060,R3 
1567 004602 110320 MOVB ~—R3, (RO) + 
1568 0046046 000241 CLC 
1569 004606 006004 ROR RG 
1570 004610 000241 CLC 
1571 004612 006004 ROR R4 
1572 004614 000241 CLC 
1573 004616 006004 ROR RG 
1574 004620 005305 DEC R5 
1575 004622 001362 BNE 3$ 
1576 004624 012703 007544 MOV #MDATA,R3 
1577 004630 114023 4$: MOVB = = (RO) , (R3) + 
1578 004632 105337 004712 DECB = CHRCNT 
1579 004636 001374 BNE 4$ 
1580 004640 105737 004713 TSTB = SPACNT 
1581 004644 001405 BEQ 6$ 
1582 004646 112723 000040 5$: MOVB #040,(R3)+ 
1583 004652 105337 004713 DECB = SPACNT 
1584 004656 001373 BNE 5$ 
1585 004 105013 6$: CLRB (R3) 
1586 004662 104402 007544 TYPE ,MDATA 
1587 004 005337 004710 DEC WROCNT 
1588 004672 001313 BNE 1$ 
1589 004674 012605 MOV (SP)+,R5 
1590 004676 012604 MOV (SP)+.R4 
1591 004700 012603 “MOV (SP)+,R3 
1592 004702 012601 MOV (SP)+,R1 
1593 004706 012600 MOV (SP)+.RO 
1594 004706 000002 RT] 
1595 004710 000000 WRDCNT: 0 
1596 004712 000000 CHRCNT: 0 


4 
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CZDMH.P11  0B=JUL-80 08:21 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0033 
1597 006713 SPACNT= CHRCNT+1 
1598 004714 000000 BINWRD: 0 
1599 
1600 
1601 : TRAP DISPATCH SERVICE 
1602 ‘ARGUMENT OF TRAP IS EXTRACTED 
1603 [AND USED AS OFFSET TO OBTAIN POINTER 
1604 [TO SELECTED SUBROUTINE 
1606 004716 011646 .TRPSR: MOV (SP) ,<(SP) :GET PC OF RETURN 
1607 720 162716 000002 SUB #2, (SP) :=PC OF TRAP 
1608 004724 017616 000000 MOV a(SP), (SP) *GET TRP 
1609 004730 006316 TRPOK: ASL (SP) “MULTIPLY TRAP ARG BY 2 
1610 004732 042716 177001 IC #177001, (SP) CLEAR UNWANTED BITS 
1611 004736 062716 001330 D #.TRPTAB,(SP) | :POINTER TO SUBROUTINE ADDRESS 
1612 004742 017616 000000 MOV a(sP), (SP) ‘SUBROUTINE ADDRESS 
1613 004746 000136 JMP a(sP)+ :GO TO SUBROUTINE 
1615 ;ERROR HANDLER 
i oop oR 
1618 004750 004737 007606 -HLT: JSR PC, CKSWR sCHECK FOR SOFT SwWR 
1619 004754 032777 010000 174220 , BIT #SWi2,aSwWR “BELL ON ERROR? 
1620 004762 001406 BEQ XBX ‘BR IF NO BELL 
1621 004764 105777 174220 TSTB = @TPCSR :TTY READY. 
1622 004770 100003 BPL XBX sDON'T WAIT IF TTY NOT READY. 
1623 004772 112777 000207 174212 MOVB #207,aTPDBR “PUSH A BELL AT THE TTY. 
1624 005000 032777 020000 174174 XxBxX: BIT sui aswr “DELETE ERROR PRINT OUT? 
1625 005006 001105 BNE HALTS ‘BR IF NO PRINT OUT WANTED. 
1626 005010 021637 001234 CMP (SP) ,LSTERR “WAS THIS ERROR FOUND LAST TIME? 
1627 005014 001404 BEQ 1$ ‘BR IF YES 
1628 005016 011637 001234 MOV (SP) ,LSTERR *RECORD BEING HERE 
1629 005022 105037 001325 CLRB —s ERRFLG [PREPARE HEADER 
1630 005026 104406 1$: SAVOS [SAVE ALL PROC REGISTERS 
1631 005030 011605 MOV (SP) RS :GET THE PC OF ERROR 
1632 005032 162705 000002 SUB #2,R [GET ADDRESS OF TRAP CALL 
1633 005036 011504 MOV (R5) ,R4 ‘GET HLT INSTRUCTION 
1634 005040 006304 ASL RG ‘MULT BY TW 
1635 005042 0615 ADD (RS) ,R4 :DOUBLE IT 
1636 005044 006304 ASL RG ‘MULT AGAIN 
1637 005066 042704 177001 BIC #177001,R4 [CLEAR JUNK 
1638 005052 062704 023404 ADD # ERRTAB,R4 =GET POINTER 
1639 005056 012437 005172 MOV (R4)+,ERRMSG § :GET ERROR MESSAGE 
1640 005 012437 005204 MOV (R4)+,DATAHD § :GET DATA HEADRER 
1641 005 011437 005216 MOV (R4) ,DATABP :GET DATA TABLE 
1642 005072 105737 001325 TSTB  — ERRFLG [TYPE HEADREER 
1643 005076 001403 BEQ TYPMSG 7BR IF YES 
1644 005100 005737 005216 TST DATABP “DOES DATA TABLE EXIST? 
1645 005104 001040 BNE TYPDAT :BR IF YES. 
1646 005106 104402 005672 TYPMSG: TYPE ,MCRLF 
1647 005112 104402 005672 TYPE ~MCRLF 
1648 005116 005737 001220 TST LOCK 
1649 005122 001402 BEQ 1$ 
1650 005124 104402 006142 TYPE  ,MASTEK 
1651 005130 106402 006130 1$: TYPE §<MTSTN 
1652 005134 104411 005330 CNVRT {XTSTN “SHOW IT 
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L UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
TYPE »MERRPC ; TYPE PC. 
CNVRT »ERTABO :SH OW 
TYPE »MCRLF :GIVE A CR/LF 
MOVB #-1,ERRFLG :NO MORE HEADER UNLESS NO DATA TABLE. 
TST ERRMSG :1S THERE AN ERROR MESSAGE? 
BEQ WRKO.FM ‘BR IF NO. 
TYPE s TYPE 
ERRMSG: 0 4 ERROR MESSAGE 
WRKO.FM: : 
TST DATAHD ;DATA — 
BEQ TYPDAT 3;BR IF N 
TYPE ; TYPE 
DATAHD: 0 ; DATA HEADER 
TYPDAT: TST DATABP ‘DAT A TABLE? 
BEQ RESREG ‘BR IF NO. 
CONVRT : SHOW 
DATABP: 0 ; DATA TABLE 
RESREG: RESOS *RESTORE PROC REGISTERS 
HALTS: a + eaaacinetn :I1F ACT=-11 AUTOMATIC MODE, HALT!! 
TST aswR ;HALT ON ERROR? 
BPL EXITER ;BR IF NO HALT ON ERROR 
1$: PUSHRO ;SAVE RO 
MOV 2(SP),RO :SHOW ERROR PC IN DATA LIGHTS 
HALT 3; HALT 
POPRO :GET RO 
EXITER: INC ERRCNT ;UPDATE ERROR COUNT 
BIT #Sw08,aSwR :GOTO TOP OF TEST? 
BNE 1$ sBR IF YES 
BIT #SW10,aSwWR ;GOTO NEXT TEST? 
BEQ 23 ;BR IF NO 
MOV NEXT,RETURN 3 SET + — TEST 
1$: MOV #STACK,SP RESET 
MOV DMCSR,R1 :SET » 
JMP @RE TURN ;GOTO SPECIFIED TEST 
2$: RT] ;RETURN 
ERTABO: 1 
-BYTE 6.2 
SAVPC 
XTSTN: 1 
BYTE 3.2 
TSTNO 
sENTER HERE ON POWER FAILURE 
-PFAIL: 
MOV #RESTART,24 ;SET UP FOR POWER UP TRAP 
~~’ sHALT ON POWER DOWN NORMAL 
sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
RESTAR: 
MOV #.PFAIL,24 :SET UP FOR POWER FAILURE 


MOV @STACK,SP ;RESET THE STACK POINTER 
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7DMH.P11 08-JUL-80 08:21 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0035 
1709 005362 013701 001404 MOV DMCSR,R1 ;RESTORE R1 
1710 5366 005037 001416 CLR TEMP READY FOR TIMMER 
1711 005372 005237 001416 INC TEMP :PLUS ONE TO THE TIMER! 
1712 005376 001375 BNE 74 ;BR IF MORE TO GO 
1713 005400 104402 005675 TYPE »MPFAIL ; TYPE THE MESSAGE 
1714 005404 104411 005430 CNVRT = ,PFTAB TELL WHAT TEST TO RETURN TO. 
1715 005410 105037 001325 CLRB ERRFLG sSTART CLEAN 
1716 005414 005037 001234 CLR LSTERR " apatanmsamatssie 
1717 005420 005011 CLR (R1) :CLEAR MAINT BITS 
1718 005422 104412 MSTCLR START CLEAN UP OF DEVICE 
1719 005424 000177 173564 JMP @RE TURN START DOING THAT TEST AGAIN. 
1720 005430 000001 FSTAB: 1 
1721 005432 003 002 BYTE 3,2 
17S¢ 005434 001226 TSTNO 
1724 005436 DELAY: 
1725 005436 012777 000020 173746 MOV #20,aDMP04 
1726 005444 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1727 005446 121111 121111 ;POKE CLOCK DELAY BIT 
1728 005450 1$: 
1729 005450 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1730 005452 121224 121224 :PORT4_IBUS*11 
1731 005454 032777 000020 173730 BIT #BIT4,aDMPO4 :1S CLOCK BIT SET? 
1732 005462 001772 BEQ 1$ ;BR IF NO 
ite? 005464 000002 RTI 
1735 005466 -MSTCLR: 
1736 005466 152777 000100 173712 B1SB #BIT6,aDMCSRH  ;SET MASTER CLEAR 
1737 005474 142777 000300 173704 BICB #BIT6'BIT7,@DMCSRH ;CLEAR MASTER CLEAR AND RUN 
ie 005502 000002 RTI ;RETURN 
1740 005504 ~ROMCLK: 
1741 005504 152777 000002 173674 BI1SB #BIT1,aDMCSRH ;SET ROMI 
1742 005512 013677 173676 MOV a(SP)+,aDMPO06 ;LOAD INSTRUCTION IN SEL6 
1743 005516 062746 000002 ADD #2,-(SP) sADJUST STACK 
1744 005522 032777 000100 173452 BIT #SW06 ,aSWR sHALT IF SWO6 =1 
1745 005530 001401 BEQ 1$ BR IF Sw06 =0 
1746 005532 000000 HALT sHALT BEFORE CLOCKING INSTRUCTION 
1747 005534 152777 000003 173644 1$: BISB #B1T1'BITO,@DMCSRH ;CLOCK INSTRUCTION 
1748 005542 142777 000007 173636 BICB #BIT2'BIT1'BITO,aDMCSRH ;CLEAR ROMO, ROMI, STEP 
Hf 005550 000002 RTI 
1751 005552 .DATACLK: 
1752 005552 013637 001416 MOV a(SP)+, TEMP :PUT TICK COUNT IN TEMP 
1753 005556 062746 000002 ADD #2,-(SP) sADJUST STACK 
1754 005562 152777 000020 173616 1$: B1SB #BIT4,aDMCSRH ;SET STEP LU 
1755 005570 027777 173610 173606 cmp @DMCSR,@DMCSR ;WASTE TIME 
1756 005576 142777 000020 173602 81(B #BIT4,aDMCSRH ;CLEAR STEP LU 
1757 005604 001416 DEC TEMP DEC TICK COUNT 
1758 005610 001364 BNE 1$ ;BR IF NOT DONE 
1759 005612 000002 RTI RETURN 
10 005614 000001 3$: -BLKW 1 
4, 4 005616 . TIMER: 
1763 005616 013637 001416 MOV a(sP)+, TEMP ;MOVE COUNT TO TEMP 
1764 005622 062746 000002 ADD #2,-(SP) ADJUST STACK 


as 
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CZDMH.P11 08-JUL-80 08:21 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0036 
1765 005626 18: 
1766 005626 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1767 005630 021364 021364 :PORT4 IBUS* REG11 
1768 005632 032777 000002 173552 BIT #2, aDMPO4 SIS PGA CLOCK BIT CLEAR? 
1769 005640 001772 BEQ 1$ ;BR IF YES 
1770 005642 2s: 
1771 005642 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1772 005644 021364 021364 ;PORT4 IBUS* REG11 
1773 005646 032777 000002 173536 BIT #2, aDMPO4 S1S PGA CLOCK BIT SET? 
1774 005654 001372 BNE 2$ SBR IF YES 
1775 005656 005337 001416 DEC TEMP :DEC COUNT 
1776 005662 001361 BNE 1$ ;BR IF NOT DONE 
1777 005664 000002 RTI RETURN 
1779 020040 000077 MOM: = .ASCIZ. /_2/ 
(2) 005672 005015 000 MCRLF: :ASCIZ _<15><12> 
(2) 005675 377 053520 020122 MPFAIL: .ASCIZ <377>/PWR FAILED. RESTART AT TEST / 
(2) 005733 377 047105 020104 MEPASS: .ASCIZ <377>/END PASS CZDMH / 
(2) 005755 7 900122 MR: CASCIZ <377>/R/ 
(2) 005760 047377 020117 042504 MERR2: .ASCIZ <377>/NO DEVICES PRESENT./ 
(2) 006005 047111 052523 MERR3: .ASCIZ <377>/INSUFFICIENT DATA! / 
(2) 006031 377 042524 052123 MTSTPC: .ASCIZ <377>/TEST PC-/ 
(2) 006043 377 047514 045503 MLOCK ASCIZ <377>/LOCK ON SELECTED TEST/ 
(2) 006072 051503 035122 000060 MCSRX: <ASCIZ /CSR: / 
(2) 006100 042526 035103 000040 MvVECX ASCIZ /VEC: / 
(2) 006106 040520 051523 051505 MPASSK: :ASCIZ /PASSES: / 
(2) 006117 | 105 051122 051117 MERRX: -ASCIZ /ERRORS: / 
(2) 006130 pot th 052123 047040 MTSTN: .ASCIZ /TEST NO: / 
(2) 006142 000052 MASTEK: .ASCIZ /*/ 
(2) 006144 051777 052105 051440 MNEW: ASCIZ <377>/SET SWITCH REG TO DMC11°S DESIRED ACTIVE./ 
(2) 006217 —_ 120 035103 000060 MERRPC: :ASCIZ /PC: / 
(2) 006224 020212 020040 020060 XHEAD: ‘ASCII <2i2>/ MAP OF DMC11 STATUS/ 
(2) 006263 377 020040 020040 ASCII <377>/ enema nnnnn nanan ns 
(2) 006322 020212 050040 020103 ASCII <212>/ PC CSR STATI STAT2 STAT3/ 
(2) 006374 026777 026455 026455 ASCIZ <377>/mnn-n=  wawwne menene  cennne ooo nee / 
(2) 50 053517 046440 NUM: eASCIZ <377>/HOW MANY DMC11'S TO BE TESTED?/ 
(2) 006510 041777 051123 040440 CSR: -ASCIZ <377>/CSR_ ADDRESS?/ 
(2) 006526 053377 041505 047524 VEC: — :ASCIZ <377>/VECTOR ADDRESS?/ 
(2) 006547 377 051102 050040 PRIO: :ASCIZ <377>/BR PRIORITY LEVEL? (4,5,6,7)2/ 
(2) 006606 044777 020106 046504 CRAM: ASCIZ <377>/1F DMC HAS CRAM (M8204) TYPE ‘‘y'', IF CROM (M8200) TYPE ‘'N’’ 2/ 
(2) 006706 053777 044510 044103 MODU: ASCIZ <377>/WHICH LINE UNIT? IF NONE TYPE "'W'', IF M8201 TYPE ‘l"', IF M8202 TYP 
(2) 007016 051777 044527 041524 LINE:  .ASCIZ <377>/SWITCH PAC#1 (DDCMP LINE #)?/ 
(2) 007054 051777 044527 041524 BM: eASCIZ <377>/SWITCH PAC#2 (BM873 BOOT ADD) ?/ 
(2) 7114 044777 020123 044124 CONN: ASCIZ <377>/1S THE LOOP BACK CONNECTOR ON?/ 
(2) 154 047377 020117 042504 NOACT: .ASCIZ <377>/NO DEVICES ARE SELECTED/ 
(2) 007205 | 377 051412 051127 SWMES: <ASCIZ <377><12>/SUR= / 
(2) 007215 116 053505 020077 SwMESI: -ASCIZ /NEW? 
(2) 007223 377 042377 041515 CONERR: .ASCIZ <377><377>/DMC11 FOUND AT NON-STANDARD ADDRESS PC: / 
(2) 007277 377 054105 042520 CNERR: .ASCIZ <377>/EXPECTED FOUND/ 
(2) 7320 024040 046504 024503 DMCM: ASCIZ / (OMC) / 
(2) 007330 024040 066513 024503 KMCM: :ASCIZ / (KMC) / . 
os) 007340 042377 041515 030461 yAe ny ASCIZ <377>/DMC11-AR(REMOTE LOW SPEED) OR DMC11-AL(LOCAL HIGH SPEED) TYPE ‘'R 
-EVEN 
(2) 007454 000005 XSTATOQ: 5 
1780 007456 — 006 003 ‘BYTE 6,3 
1781 007460 001246 TEMP 1 





CZDMH MACY11 30A(1052) 08-JUL-80 
CZDMH.P11 08-JUL-80 08:21 
Tee 007462 006 003 
1783 007464 001250 
1784 007466 006 003 
1785 007470 001252 
1786 007472 006 003 
1787 007474 001254 
1788 007476 006 002 
1789 75 001256 
790 
1791 
1792 
1793 
1794 007502 000000 
1795 007544 
1796 007544 000000 
1797 007606 
1798 
1799 
1800 
1801 
1802 
1803 
1804 007606 022737 000176 001202 
1805 007614 001077 
1806 007616 105777 171362 
1807 007622 
1808 007624 012737 177777 003734 
1809 007632 022777 000007 171346 
1810 007640 0014 
1811 007 022777 000207 171336 
1812 007650 001061 
1813 007652 010246 
1814 007654 010346 
1815 007656 010446 
1816 007660 012737 177777 010016 
1817 7666 005002 
1818 007670 012704 177777 
1819 007674 104402 007205 
1820 007700 104411 
1821 007702 010052 
Ha 007704 104402 007215 
1823 007710 004737 010020 
1824 007714 022703 000015 
1825 77 001424 
1826 007722 022703 000012 
1827 007726 001416 
1828 0077 022703 000025 
1829 007734 001754 
1830 007736 022703 000007 
1831 007742 001762 
+34 007744 005004 
183 77 042703 177770 
1834 007752 006302 
1835 007754 006302 
1836 007756 006302 
1837 007760 050302 


08:21 PAGE 38 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


. 2 


SEQ 0037 
-BYTE 6,3 
TEMP2 
-BYT 6,3 
TEMP 
BYTE 6,3 
TEMP4 
BYTE 6,2 
TEMPS 


BUFFERS FOR INPUT-OUTPUT 


INBUF: 0 
.=.+40 
MDATA: 0 
=.+40 
:ROUTINE USED TO CHANGE SOFTWARE SWITCH 
‘REGISTER USING THE CONSOLE TERMINAL 
CKSWR: CMP WSUREG, SWR :1S THE SOFT SWR BEING USED? 
BNE CKSWRS ‘BR IF NO 
TSTB = @TKCSR [1S DONE SET? 
BPL 2$ :G0 ON IF NOT SET 
MOV #-1, DONE [IF DONE SET, SET FLAG 
2$: CMP #7 ,aTKDBR ‘WAS CTRL G fveD?” 0? BIT ASCII) 
BEQ 1$ ‘BR IF YES 
CMP #207 ,aTKDBR ‘WAS CTRL G TYPED? (8 BIT ASCII) 
BNE CKSWRS ‘BR IF NO 
1$: MOV R2,-(SP) SSTORE R2 
MOV R3,-(SP) SSTORE R3 
MOV Ra. -(SP) *STORE R4 
MOV #-1,SWFLG ‘SET SOFT TYPE OUT FLAG 
CKSWR1: CLR ‘CLEAR NEW SWR CONTENTS 
MOV #-1,R4 :SET FLAG TO ALL ONES 
TYPE ,SWMES “TYPE "SWR= 
CKSWR2: CNVRT ‘TYPE OUT PRESENT CONTENTS 
SOF TSW :0F SOFT SWITCH REGISTER 
CKSWR3: TYPE ,SWMES1 :TYPE "NEW? 
CKSWR&: JSR PC, INCHAR [GET RESPONSE 
CMP #15,R3 “WAS IT A CR? 
BEQ $ ‘BR IF YES 
CMP #12,R3 “WAS IT A LF? 
BEQ & BR IF YES. 
CMP #25,R3 ‘WAS IT CTRL U? 
BEQ CKSWR1 “BR IF YES(START OVER) 
CMP #7,R3 [IF CNTL G GET NEXT CHAR 
BEQ CKSWR4 
CLR R4 :1T MUST BE A DIGIT SO CLR FLAG 
BIC #177770,R3 [ONLY O-7 ARE LEGAL SO MASK OFF BITS 
ASL R2 SSHIFT R2 3 TIMES 
ASL R2 
ASL R2 
BIS R3,R2 :ADD LAST DIGIT 
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CZDMH  MACY11 30A(1052) O8-JUL-80 08:21 PAGE 39 
CZDMH.P11 08-JUL-80 08:21 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0038 
1838 007762 000752 BR CKSWR ;GET NEXT CHARACTER 
1839 007764 012766 002002 000006 4$: MOV #. START, 6(SP) [LF WAS ine $0 GO TO START 
1840 007772 005704 5$: TST Rd i18 FLAG CLEAR 
1841 007774 00100 BNE 6$ ;1F NOT DON'T CHANGE SOFT SWR 
ists 007776 010277 171200 MOV nok aswR :IF YES THEN WRITE NEW CONTENTS TO SOFT SWR 
1843 010002 005037 010016 6$: CLR SWFLG :CLEAR TYPEOUT FLAG 
1844 010006 012604 MOV (SP)+,R4 RESTORE R4 
1845 010010 012603 MOV (SP)+,R3 RESTORE R3 
1846 010012 012602 MOV (SP) +,R2 RESTORE R2 
+ #8 010014 000207 CKSWRS: RTS PC RETURN 
Hy 044 010016 000000 SWFLG: 0 
1851 010020 105777 171160 INCHAR: TSTB aTKCSR 
1852 010024 100375 BPL “4 
1853 010026 017703 171154 MOV ATKDBR,R3 
1854 010032 105777 171152 TSTB aTPCSR 
1855 010036 100375 BPL -4 
1856 010040 010377 171146 MOV R3,aTPDBR 
1857 010044 042703 000200 BIC #81T7,R3: 
Hb t+ 010050 000207 RTS PC 
1860 010052 000001 SOFTSW: 1 
1861 010054 006 002 -BYTE 6,2 
1862 010056 000176 SWREG 
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CZDMH MACY11 30A(1052) O8-JUL-80 08:21 PAGE 40 
CZDMH.P11  08-JUL-80 08:21 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0039 
1863 
1864 
1865 “ROUTINE USED TO ‘'CYCLE'’ THROUGH U® TO 16 DMC11'°S 
1866 :THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
1867 : AND RUNS THE SPECIFIED DMC11'S. THIS ROUTINE *MUST* 
1868 ‘BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
1869 SSETUP NECESSARY. 
Ha 7 
1872 010060 005737 001306 CYCLE: TST DMACTV ;ARE ANY DMC11°S TO BE TESTED? 
1873 010064 001004 BNE 1$ :BR IF Ok. 
1874 010066 104402 007154 TYPE »NOACT 3NO DMC11°S SELECTED!! 
1875 010072 000000 HALT sSTOP THE SHOW. 
1876 010074 000776 BR .-2 “DISQUALIFY CONT. SW. 
1877 010076 000241 1$: Cut sCLEAR PROC. CARRY BIT. 
1878 010100 006137 001316 ROL RUN. [UPDATE POINTER 
1879 010104 005537 001316 ADC RUN sCATCH CARRY FROM RUN 
1880 010110 062737 000004 001322 ADD #4 MILK ‘UPDATE POINTER 
1881 010116 062737 000010 001320 ADD #10, CREA UPDATE ADDRESS POINTER. 
1882 010124 022737 001700 001320 CMP #0". mape200, CREAM 
1883 010132 001 BNE 2$ KEEP GOING; NOT ALL TESTED FOR. 
1884 010134 012737 001500 001320 MOV #OM.MAP,CREAM “RESET ADDRESS POINTER. 
1885 010142 012737 001702 001322 MOV #@CNT.MAP MILK ;RESET PASS COUNT POINTER 
1886 010150 033737 001316 001306 28: BIT RUN, ,DMACTV ae ee ONE ACTIVE? 
1887 010156 001747 BEQ NO 
1888 010160 013700 001320 MOV CREAM,RO err ADDRESS POINTER 
1889 010164 013702 001322 MOV MILK,R2 :GET PASS COUNT POINTER 
1890 010170 012037 pote MOV (RO)+,DMCSR “LOAD SYSTEM CTRL. REG 
1891 010174 011037 001374 MOV (RO) ,OMRVEC [LOAD VECTOR 
1892 010200 042737 177000 001374 BIC #177600, DMRVEC :CLEAR UNWANTED BITS 
1893 010206 012037 001366 MOV (RO)+, STATI SLOAD STATI 
1894 010212 012037 001370 MOV (RO)+.STAT2 [LOAD STAT? 
1895 010216 012037 001372 MOV (RO)+, STATS sLOAD STATS 
1896 010222 012237 001230 MOV (R2)+,PASCNT LOAD PASS COUNT 
1897 010226 012237 001232 MOV (R2)+, ERRCNT “LOAD ERROR COUNT 
1898 010232 012700 000002 MOV #2,R0 ;SAVE CORE THIS WAY! 
1899 010236 013737 001404 001406 MOV DMCSR,DMCSRH 
1900 0102464 005237 001406 INC DMCSRH 
1901 010250 013737 001406 001410 MOV DMCSRH,DMCTL 
1902 010256 005237 001410 INC DMCTL 
1903 010262 013737 001410 001412 MOV DMCTL ,DMPO4 
1904 010270 37 001412 ADD RO, DMPO4 
1905 010274 013737 001412 001414 MOV DMPO4 , DMPO 
1906 010302 37 001414 ADD 0.DMPO6 
1908 010306 013737 001374 001376 MOV DMRVEC,DMRLVL ;PTY LVi 
1909 010314 060037 001376 ADD RO, DMRLVL ; 
1910 010320 013737 001376 001400 MOV DMRLVL,DMTVEC ;TX VEC 
1911 010326 060037 001400 ADD RO, DMTVEC ; 
oe 010332 013737 001400 001402 MOV DMTVEC,OMTLVL ;TX LVL 
1913 010340 060037 001402 ADD RO, DMTLVL 
1915 0103464 032737 000002 001236 BIT #SwO1,STRTSW 1S TEST NO. SELECTED 
1916 010352 001450 BEQ 7$ ;BR IF NO 
1917 010354 4$: : 
1918 010354 005737 000042 TS? ashe ;RUNNING IN AUTO MODE? 





33 


oOooo°cKeo — 
Oo ss oO 
oo 


oOQooCoo°ooo 


OODODODOOOOOSO 
MMNMNMVNRNVNN— 
ONOUFSWN—O”O 

Wis 


aD ee aed od ot td od 8 Sd SS 
RERSSaN 
ooo 
=~n— 
23S oS 
SSSHSSSS 


RRRLRELEE 
Sono 


SAFASISS 


ooonovovonds 
“ 


Oo SW NTP 
VS OoNONON™N 


w 
¥ MNIN —$WOW A SONU 


LSRSN8 


o— 
~ 


RRRAS 

nm 

COO BDOOCOCCOCOOCOOCOOOCOOCOOoCOoOoCOoO 
Ss 
y+ 


+» —> — 


oo 
ww 


oO 


~ 
—NONVNVNOOoOf 


ee a ee ee Bt etd et ed 
Seouyery moo 
OO Fan OFALNO 


RF RLRLRRRLKKLES 


SRR 


oooo 
Pn 
me 
OoOfFnwnr 
SET E 


_= 
mur 
Non 
ONoo 
MmMrnrnul 


— 


SEPEFEZES 


SOSOCOOCOOOOOSCOoOCoe 


ww 
=—MmuNnui 


QF 


fwun—-9o 0 


SAS 


ee ee ee ed td ot = 
ee ee ee ee ae ed ed aed od wo 8 


SSSENESFESSS 


PAAAAMAAMNE 
Sex 
—_ 
Fn 


oovuoJd 
NNN 
~e 


—_—+- ee 


52) O08-JUL-80 08: 
0 08:21 


005672 


012320 


001226 
001226 
001214 
005755 
000002 
016214 
005666 
012320 


001404 
170502 


001500 
001700 





000002 
000004 


001236 


001214 


001236 


001256 





B 4 


PAGE 41 

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
BNE 7$ ;BR IF YES 
TYPE /MCRLF 
INSTR ;GET TEST NO. 
MTSTN 
we 
1000 
TSTNO 
MOV #TST1,RO 
CMP (PC)+, (RO) ;CMP FIRST WORD TO 12737 
MOV (PC)+,a(PC)+ 
BNE 6$ ;BR IF NOT SAME 
CMP TSTNO,2(RO) ;DOES TSTNO MATCH: 
BNE 6$ ;BR IF NO 
CMP #TSTNO,4(RO) 1S LAST WORD OK? 
BNE 6$ ;BR IF NO 
MOV RO, RETURN :1T IS A LEGAL TEST SO DO IT 
TYPE MR 
BIC #SWO1,STRTSW 
BR 8$ 
TST (RO) + ;POP RO 
CMP RO, #TLAST+10 ;AT END YET? 
BNE 5$ ;BR IF NO ’ 
TYPE , MQM YES ILLEGAL TEST NO. 
BR 4% 7 TRY AGAIN 
MOV #TST1,RETURN ;PREPARE RETURN ADDRESS 
MOV DMCSR,R1 ;Ri = BASE DMC11 ADDRESS 
JMP @RETURN 3GO0 START TESTING. 


;ROUTINE USED TO ‘‘AUTO SIZE"’ THE DMC11 
;CSR AND VECTOR 


;NOTE: 


AUTO.SIZE: 
R 


THE CSR MAY BE ANY WHERE IN THE FLOATING 
ADDRESS RANGE. (160000: 164000) 

AND THE VECTOR MAY BE ANY WHERE IN THE 
FLOATING VECTOR RANGE (300:770) 


; INSURE A BUS INIT. 


#0M.MAP,R2 ;LOAD MAP POINTER. 
(R2)+ ;ZERO ENTIRE MAP 
#DM.END,R2 ;ALL DONE? 

1$ ;BR_IF NO 

DANUM ;SET OCTAL NUMBER OF DMC11'S TO 0 
#DM.MAP,R2 ;R2 POINTS TO DMC MAP 
DMACTV ;CLEAR ACTIVE 
#Sw00,STRTSwW ;QUESTIUNS? 

.+6 ;BR IF YES 

7$ :1F NO SKIP QUESTIONS 
#1, TEMPS 7START WITH 1 
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CZDMH.P11 08-JUL-8 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0041 
1975 010572 104405 PARAM 
1976 010574 0001 1 
1977 010576 000020 
1978 010600 001252 TEMP3 
1979 Hee 000 -BYTE 0 
1980 01060 001 -BYTE 1 
1981 010604 013737 001252 001310 MOV TEMP3,DMNUM ;OMNUM = HOW MANY 
1982 010612 104402 005672 128: TYPE »MCRLF 
1983 010616 104410 CONVRT ; TYPE WHICH DMC IS BEING DONE 
1984 010620 012002 WHICH TEMPS IS WHICH DMC 
1985 010622 005237 001256 INC TEMPS 
1986 010626 104403 INSTR 
1987 010630 006510 CSR 
1988 010632 104405 PARAM 
1989 010634 160000 160000 
1990 010636 164000 164000 
1991 010640 00125 TEMPS 
1992 010642 000 -BYTE 0 
1993 010643 001 BYTE 1 
1994 010644 013722 001254 MOV TEMP4, (R2)+ ;STORE CSR IN MAP 
1995 010650 104403 INSTR 
1996 010652 526 VEC 
1997 010654 104405 PARAM 
1998 010656 000000 0 
1999 010660 000776 776 
2000 010662 001254 TEMPS 
2001 010664 000 BYTE 0 
200 818082 001 BYTE 1 
200 10666 013712 001254 MOV TEMPS, (R2) ;STORE VECTOR IN MAP 
2004 010672 104402 108: TYPE 
2005 010674 006547 PRIO :ASK WHAT BR LEVEL 
2006 010676 004737 012266 JSR PC, INTTY GET RESPONSE 
2007 010702 022703 000024 CMP #24,R3 : 
2008 010706 101014 BHI 50$ ;BR IF LESS THAN 4 
2009 010710 022703 000027 CMP #27,R3 : 
2010 010714 103411 BLO 50$ :BR IF GREATER THAN 7 
2011 010716 012704 000011 MOV #11,R4 3R4 = NUMBER OF SHIFTS 
2012 010722 006303 ASL R3 sSHIFT R3 LEFT 
2013 010724 005304 DEC R4 DEC SHIFT COUNT 
2014 010726 001375 BNE 74 ; IF NOT DONE 
2015 0107 042703 170777 BIC #170777,R3 :BIC UNWANTED BITS 
2016 010734 050312 BIS R3,(R2) PUT BR LEVEL IN STATUS MAP 
2017 010736 000403 BR 8$ : CONTINUE 
2018 010740 104402 50$: TYPE 
2019 010742 005666 MOM RESPONSE IS OUT OF LIMITS 
2020 010744 000752 BR 108 : TRY AGAIN 
2021 010746 104402 8$: TYPE 
2022 01075 gas] CRAM :DOES DMC HAVE CRAM? 
023 010752 004737 012266 JSR PC, INTTY :GET REPLY 
24 010756 022703 000131 CMP #181,R3 
2025 010762 001427 BEQ 9$ sYES 
202 910768 022703 000114 CMP #116,R3 :NO 
027 010770 001403 BEQ 408 :NOT A Y OR N 
028 010772 104402 TYPE mS 
029 010774 005668 MOM : TYPE ‘'?"' 
2030 010776 00076 BR 8 ASK AGAIN 
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1 08-JUL-80 08:21 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0042 
011000 104402 408: 

011002 007340 SPEED ;DMC11-AR OR DMC11-AL? 
011006 004737 012266 JSR PC, INTTY “GET RESPONSE 

011010 022703 000122 CMP #122,R3 ‘1S IT R 

011014 001414 BEQ 16$ :BR IF REMOTE 

011016 022703 000114 CMP #1146,R3 tS. ae © 

011022 001403 BEQ 41$ <BR IF LOCAL 

011024 104402 TYPE 

011026 005666 MOM 

011030 000763 BR 408 : TRY AGAIN 

011032 052762 000002 000004 41$: BIS #BIT1,4(R2) sSET BIT! IN STAT3 
011040 000402 BR 16$ ; CONTINUE 

011042 052712 100000 9$: BIS #B1T15,(R2) :SET BIT 15 IF CRAM 
011046 104402 16$: ‘TYPE 

011050 006704 MODU sASK WHICH LINE UNIT 
011052 004737 012266 JSR PC,INTTY sGET REPLY 

011056 022703 000021 CMP #21 R3 hs i 

011062 001417 BEQ 30$ 

011064 022703 000022 CMP #22,R3 oT" 

011070 001412 BEQ 31$ 

011072 022703 000116 CMP #116,R3 2 N" 

011076 001403 BEQ 328 

011100 104402 TYPE 

011102 005666 MQM s1F NOT A 1,2 OR N TYPE ‘'?"* 
011104 000760 BR 16$ s TRY AGIAN 

011106 052722 010000 32$: BIS #BIT12,(R2>+ :SET BIT 12 IN STAT2 IF NO LU 
011112 022222 CMP (R2)+,(R2)¢+ :POP OVER STAT2 AND STATS 
011114 000447 BR 33% 
011116 052712 020000 31$: BIS #BIT13, (R2) :SET BIT 13 IN STAT2 IF M8202 
011122 104402 30$: TYPE 

011124 007114 CONN sASK IF LOOP-BACK IS ON 
011126 004737 012266 JSR PC, INTTY GET REPLY 

011132 022703 000131 CMP #131,R3 vy 

011136 001406 BEQ 17$ 

011140 022703 000116 CMP #116,R3 iN 

011144 001406 BEQ 18$ 

011146 104402 TYPE 

011150 005666 s MQM :1F NOT Y OR N TYPE ‘'?"' 
011152 000763 BR 30 ‘TRY AGAIN 

011154 052722 040000 17$: BIS #BIT14,(R2)+ s TURNAROUND IS CONNECTED 
011160 000402 BR 19$ 

011162 042722 040000 18$: BIC #BIT14,(R2)+ sNO TURNAROUND 

011166 19$: 

011166 104403 INSTR 

011170 007016 LINE 

011172 104405 PARAM 

011174 000000 

011176 000377 77 

011200 001254 TEMPS 

011208 000 .BYTE 0 

01120 001 “BYTE 1 

011204 EE S| 001254 MOVB TEMPS, (R2)+ sSTORE SWITCH PAC IN MAP 
011210 10440 INSTR 

011212 007054 ™ 

011214 104405 PARAM 

011216 000000 
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CZDMH.P11 OB-JUL-80 08:21 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0043 
2087 011220 000377 377 
2088 Oli222 001254 TEMPS 
2089 011224 000 -BYTE 0 
2090 011225 001 “BYTE 1 
2091 011226 113722 001254 MOVB TEMPG, (R2)+ sSTORE SWITCH PAC IN MAP 
2092 011232 005722 TST (R2)+ sPOP OVER STATS 
2093 011234 005337 001252 33$: DEC TEMP3 ‘DEC DMC COUNT 
2094 011240 001402 BEQ 34$ ‘BR IF DONE 
2095 011242 000137 010612 JMP 12$ ‘JUMP IF NOT 
20% 011246 000137 011702 34$:  JMP 13$ : CONTINUE 
2097 011252 012701 160000 7$: MOV #160000,R1 sSET FOR FIRST ADDRESS TO BE TESTED 
2098 011256 012737 011774 000004 MOV #6$,a84 :SET FOR NON-EXISTANT DEVICE TIME OUT 
2099 011264 005011 23: CLR (R1) :CLEAR SELO 
2100 011266 005711 TST (R1) :1F DMC11 DMCSR S/B 0 
2101 011270 001172 BNE 3$ ;1F NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO DMC11 
2102 011272 005061 000006 CLR 6(R1) :CLEAR SEL6 
2103 011276 005761 000006 TST 6(R1) :1F OMC11 THEN DMRIC S/B =0! 
2104 011302 001165 BNE 3$ ;BR IF NOT DMC11 
2105 011304 012711 002000 MOV #B1T10,(R1) “SET ROMO 
2106 011310 005061 000004 CLR 4(R1) ;CLEAR SEL4 
2107 011314 012761 125252 000006 MOV #125252,6(R1)  :WRITE THIS TO SEL6 
2108 011322 052711 020000 BIS #B1T13,(R1) ‘WRITE IT! 
2109 011326 022761 125252 000004 CMP #125252,4(R1) :WAS IT WRITTEN? 
2110 011334 001004 BNE 21$ :1F NO IT IS NOT CRAM 
2111 011336 052762 100000 000002 BIS #BIT1S,2(R2)  :SET BITIS IF CRAM 
2112 011344 000431 BR 22% 
2113 011346 012711 001000 21$: MOV #B1T9, (R1) :SET ROMI 
2114 BEST p176) 100430 000006 MOV #100480,6(R1) :PUT INSTRUCTION IN SEL6 
2115 O11 012711 001400 MOV #BIT9'BITB,(R1) ;CLOCK INSTRUCTION (MICRO PROC PC TO 0) 
2116 011364 012711 002000 MOV #BIT10,(R1) “SET ROMO 
2117 011370 022761 016472 000006 CMP #016472,6(R1) 31S IT LOCAL CROM? 
2118 011376 001411 BEQ 23$ ‘BR IF YES 
2119 011400 022761 016461 000006 CMP #016461 ,6(R1) s1S IT REMOTE CROM? 
2120 011406 001410 BEQ sBR IF YES 
2121 011410 022761 177777 000006 CMP #-1,6(R1) "NO CROM? 
2122 011416 001404 BEQ 223 sBR IF YES 
2123 011420 000516 “NOT A DMC 
2124 011422 052762 000002 000006 238: BIS #BIT1,6(R2) “SET BIT 1 IN STAT3 
2125 -AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A DMC11 CSR ADDRESS. 
2126 011430 010122 52$: MOV R1,(R2)¢ :STORE CSR IN CORE TABLE. 
2127 011432 012711 001000 15$: MOV #B1T9,(R1) ;CLEAR LINE UNIT LOOP 
2128 011436 005061 4 CLR 4(R1) sCLEAR PORTS 
2129 011442 012761 122113 000006 MOV #122113,6(R1) | :LOAD INSTRUCTION (CLR DTR) 
2130 011450 052711 000400 BIS #8118, (R1) “CLOCK INSTRUCTION 
2131 011456 012761 021264 000006 MOV #021264,6(R1)  :LOM) INSTRUCTION 
2132 011462 052711 000400 BIS #B1T8, (R1) “CLOCK INSTRUCTION 
2133 011466 122761 000377 000004 CMPB sso #377, 4(R1) :IS IT ALL ONES? 
2134 011474 001003 BNE +10 ;BR IF NO 
2135 011476 052712 010000 BIS #BIT12, (R2) s1F YES, NO LINE UNIT, SET STATUS BIT 
2136 011502 000436 BR 
2137 011504 032761 000002 000004 BIT #B1T1,4(R1) s1S SWITCH A ONE? 
2138 011512 001403 BEQ +10 “BR IF 1 
2139 011514 9327 I¢ 060000 BIS #BITI3'BIT14, (R25 3M8202 ASSUME CONNECTOR 
3140 011520 00042 BR : CONNECTOR ON) 

141 0115¢2 032761 000010 000004 BIT #B1T3,4(R1) ‘1S MRDY SET 

2142 0115 001023 BNE 20% :;BR IF M8201 NO CONNECTOR (ON LINE) 
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CZ0MH.P11 08-JUL-80 08:21 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0044 


012761 000100 000004 MOV #B1T6,4(R1) ;LOAD PORTS 


011532 
2144 011540 012761 122113 000006 MOV #122113,6(R1) LOAD INSTRUCTION 
2145 011546 052711 000400 BIS #B1T8, (R1) ‘CLOCK INSTRUCTION(SET DTR) 
2146 011552 12761 021264 000006 MOV #021264,6(R1) | :LOAD INSTRUCTION 
2147 011560 052711 000400 BIS #B1T8, (R1) :CLOCK INSTRUCTION(READ MODEM REG) 
2148 011564 032761 000010 000004 BIT #BIT3,4(R1) ‘1S MRDY SET NOW? 
2149 011572 001402 BEQ 0$ ‘BR IF NO CONNECTOR 
2150 011574 052712 040000 BIS  —- #BIT14, (R2) ‘SET STATUS BIT FOR CONNECTOR 
2151 011600 005722 208: TST (R2)+ ;POP POINTER 
size 011602 012761 021324 000006 MOV #021324 ,6(R1) :PUT INSTRUCTION IN PORT6 
215 011610 012711 001400 MOV #BITO'BIT8,(R1) ;PORT4_LU 15 
2154 011614 156122 000004 BISB  4(R1),(R2)+ “STORE DDCMP LINE # IN TABLE 
2155 011620 012761 021344 000006 MOV #021344 ,6(R1) ;PORT6_INSTRUCTION 
2156 011626 012711 001400 MOV #BITB'BIT9,(R1) :CLOCK” INSTR. 
2157 011632 156122 000004 B1S8 G(R1), (R2)¢+ :STORE B8M873 ADD IN TABLE 
2158 011636 005722 TST (R2)+ sPOP OVER STATS 
2159 011640 005011 CLR (R1) “CLEAR ROMI 
2160 011642 005237 001310 INC DMNUM [UPDATE DEVICE COUNTER 
2161 011646 022737 000020 001310 CMP #20,D0MNUM ;ARE MAX. NO. OF DEV FOUND? 
2162 011654 001412 BEQ 13$ ;YES DON'T LOOK FOR ANY MORE. 
2163 011656 005011 3$: CLR (R1) sCLEAR BIT 10 
2164 011660 005061 000006 CLR 6(R1) “CLEAR SEL 6 
2165 011664 062701 000010 14$: ADD #10,R1 sUPDATE CSR POINTER ADDRESS 
2166 011670 022701 164000 CMP #164000,R1 
2167 011674 001402 BEQ 13% ;BR IF DONE 
2168 011676 137 011264 JMP 2$ : JUMP IF NOT 
2169 011702 005037 001306 13$: CLR DMACTV 
2170 911798 005737 001310 TST DMNUM sWERE ANY DMC11°S FOUND AT ALL? 
2171 =+01171 001423 BEQ 5$ sERROR AUTO SIZER FOUND NO DMC11°S IN THIS SYS. 
2172 011716 013701 001310 MOV DMNUM,R1 
“173 011720 010137 001314 MOV R1,SAVNUM ;SAVE NUMBER OF DEVICES 
2174 011724 000241 4$: CLC 
2175 Bhi 7e6 006137 001306 ROL DMACTV sGENERATE ACTIVE REGISTER OF DEVICES. 
2176 11732 005237 001306 INC DMACTV sSET THE BIT 
2177 011736 005301 DEC R1 
2178 011740 001371 BNE 4$ sBR IF MORE TO GENERATE 
2179 011742 012737 000006 000004 MOV #6,a8%4 ;RESTORE TRAP VECTOR 
2180 011750 013737 001306 001312 MOV DMACTV,SAVACT sSAVE ACTIVE REGISTER 
2181 011756 000137 012010 JMP VE CMAP 3GO FIND THE VECTOR NOW. 
2182 011762 104402 005760 5$: TYPE »MERR2 sNOTIFY OPR THAT NO DMC11°S FOUND. 
2183 011766 005000 CLR RO sMAKE DATA LIGHTS ZERO 
2184 011770 HALT :STOP THE SHOW 
2185 011772 000776 BR =2 ‘DISABLE CONT. SW. 
2186 011774 012716 011664 6$: MOV #14$, (SP) sENTERED BY NON-EXISTANT TIME-OUT. 
44 012000 000002 RT] ;RETURN TO MAINSTREAM 
2189 012002 000001 WHICH: 1 
2190 012004 002 002 -BYTE 2,2 
2191 012006 001256 TEMPS 
$198 012010 032737 000001 001236 VECMAP: BIT #Sw00, STRTSW 
219% 012016 001114 BNE 
2195 012020 012737 000340 000022 MOV #340,a822 :SET 10T TRAP PRIO TO 7 
2196 012026 012737 012202 000020 MOV #4$,a#20 “SET 10T TRAP VECTOR 
2197 012034 012702 001500 MOV #OM. MAP ,R2 ;SET SOFTWARE POINTER 
2198 012040 012700 000300 MOV #300,R0 sFLOATING VECTORS START HERE. 
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2199 012044 012701 000302 MOV #302,R1 :PC OF IOT INSTR. | 
2200 012050 010120 1$: MOV R1,(RO)+ :START FILLING VECTOR AREA | 
2201 012052 012721 000004 MOV #4, (R1)+ ‘WITH .4#2; LOT 
2202 012056 022021 CMP (RO)+, (R1)¢ ‘ADD 2 TO RO ¢R1 
2203 012060 020127 001000 CMP R1,#1600 
2204 012064 101771 BLOS -'1$ :BR IF MORE TO FILL 
2205 012066 013737 001306 001246 MOV DMACTV, TEMP1 =STORE TEMPORALLY 
2206 012074 006037 001246 2$: ROR TEMP1 ‘BRING OUT A BIT 
2207 012100 103063 BCC 5$ ‘BR IF ALL DONE 
2208 012102 012704 000012 MOV #12,R4 =R4 IS INDEX REGISTER 
2209 012106 016437 012252 177776 MOV BRLVL(RG),PS  :SET PS TO 7 
2210 012114 011201 MOV (R2),R1 
2211 012116 012761 000200 000004 MOV #200,4(R1) 
2212 012124 012711 001000 MOV #B1T9, (R1) :SET ROMI 
2213 012130 012761 121111 000006 MOV #121111,6(R1) | :PUT INSTRUCTION IN PORT6 
2214 012136 012711 001400 MOV #BITO'BITB,(R1) :FORCE AN INTERRUPT 
2215 012142 10520 7$: INCB— RO STALL 
2216 012144 001376 BNE 2 ‘FOR TIME TO INTERUPT 
2217 012146 162704 000002 SUB #2,R4 [GET NEXT LOWEST PS LEVEL 
2218 012152 001404 BEQ 6$ “BR IF RG = 0 
2219 012154 016437 012252 177776 MOV BRLVL(R4),PS | :MOVE NEXT LOWER LEVEL IN FS 
2220 012162 000767 BR “BR TO DELAY 
2221 012164 052762 005300 000002 68: BIS #5300 ,2(R2) “NO INTERUPT ASSUME 300 AT LEVEL 5S AND FIX DMC11 LATER 
2222 012172 005011 33: CLR (R1) =CLEAR ROMI 
2223 012174 062702 000010 ADD #10,R2 [POP SOFTWARE POINTER 
2224 012200 000735 BR “KEEP GOING 
2225 012202 051662 000002 4$: BIS (SP) ,2(R2) [GET VECTOR ADDRESS 
922 012206 042762 000007 000002 RIC #7,2(R2) >CLEAR JUNK 
227 012214 016405 012254 MOV BRLVL+2(R4),R5 :GET BR LEVEL OF DMC11 
2228 012220 006305 ASL RS :SHIFT LEVEL 4 PLACES 
2229 012222 006305 ASL RS [TO THE LEFT FOR THE 
2230 012224 006305 ASL RS *STATUS TABLE 
2231 012226 006305 ASL R5 
2232 012230 042705 170777 BIC #170777,R5 :CLEAR UNWANTED BITS 
2233 012234 050562 000002 BIS R5S,2(R2) :PUT BR LEVEL IN STATUS TABLE 
2234 012240 022626 CMP (SP) +, (SP)+ [POP IOT JUNK OFF STACK 
2235 012242 012716 012172 MOV #3$, (SP) =SET FOR RETURN 
2236 012246 000002 RTI 
237 012250 000207 5$: RTS PC :ALL DONE WITH "AUTO SIZING’ 
2239 012252 000000 BRLVL: 0 sLEVEL 0 
2240 012254 000000 0 “LEVEL 0 
2241 012256 000200 200 “LEVEL 4 
2242 012260 000240 240 sLEVEL 5 
2243 012262 000300 300 TLEVEL 6 
2244 012264 000340 340 sLEVEL 7 
ete 
2247 012266 105777 166712 INTTY: TSTB  aTKCSR :WAIT FOR DONE 
2248 012272 100375 BPL ok 
2249 012274 017703 166706 MOV aTKDBR,R3 :PUT CHAR IN R3 
2250 012300 105777 166704 TST& = @TPCSR ‘WAIT UNTIL PRINTER IS READY 
2251 012304 100375 BPL a4 
2252 012306 010377 166700 MOV R3,aTPDBR sECHO CHAR 
2253 012312 042703 000240 BIC #BIT7'BITS.R3  :MASK OFF LOWER CASE 
2254 012316 000207 RTS PC RETURN 
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2256 
2257 
2258 peeeeeneeeeeereeeererertener TEST |] eeteneereeeererererereerere 
2259 ;*FREE RUNNING FLAG MODE DATA TEST 
2260 + * TRANSMIT A MESSAGE AND bg “ RECEIVED DATA 
2261 + *LINE UNIT LOOP IS SET FOR THIS TEST. 
2262 3 *ALL FOLLOWING TESTS ARE FREE RUNNING AND ARE gtr y 
2263 s®ONLY ON DMC'S WITH LINE UNITS. IF YOU WISH TO PERFORM 
2264 + * THESE FREE RUNNING TESTS ON A KMC (NORMALLY THE FREE RUNNING TESTS 
2265 S*WILL FAIL ON A KMC, THE TIMER IS TOO FAST) THEN YOU MUST 
2266 :*MANUALLY SET BITO OF STATS IN THE STATUS MAP. ALSO THE KMC 
2267 :*MUST HAVE THE MICRO-CODE LOADED BY PREVIOUSLY RUNNING 
2268 :*DZDMG TEST 2 AND o. LOADING AND STARTING CZDMHC 
2269 ie WITH SWITCH 7 = 
2270 Fs aomeheaieeeesnsiasinegeaninneenanninaieieanieneetannebnnntpnetictinn 
2271 
gore ; TEST 1 
2274 012320 012737 000001 001226 TST1: MOV #1,TSTNO 
2275 012326 012737 013404 001216 MOV #TST2,NEXT 
2276 3R1 iT: ue BASE DMC11 ADDRESS 
2277 012334 032737 100000 001366 BIT #B1T15,STAT1 1S IT A DMC? 
2278 012342 001406 BEQ +16 3;BR IF YES 
2279 012344 032737 000001 001372 BIT #BITO,STATS sKMC WITH BITO SET? 
2280 012352 001002 BNE .+6 3BR IF YES 
2281 012354 000137 013402 JMP 14$ :SKIP TEST 
2282 012360 032737 010000 001366 BIT #B1T12,STAT1 3;LU a 
2283 012 001372 BNE .712 3BR IF 
2284 0123 013700 021360 MOV RCOUNT,RO ; CLEAR RECEIVER BUFFER 
2285 012374 062700 000002 ADD #2,R0 :CLEAR 2 MORE LOCATIONS 
2286 012400 012702 021362 MOV #RBUF ,R2 > CLEAR OUT RECEIVE BUFFER 
2287 012404 105022 10$: CLRB (R2)+ ;CLEAR BUFFER 
2288 012406 005300 DEC RO ;DONE YET! 
2289 012410 001375 BNE 10$ 3NO 
2290 612412 005037 021306 CLR TFLAG 3SET TFLAG TO 0 
2291 012416 005037 021310 CLR RFILAG ;SET RFLAG TO 0 
2292 012422 012711 040000 MOV #BiT14,(R1) sMASTER CLEAR 
2293 012426 032737 100000 001366 BIT #B1T15,STAT1 3; CRAM? 
22 012434 001402 BEQ .+6 3;BR IF NO 
2295 012436 012711 100000 MOV #B1T15,(R1) :1F CRAM SET RUN 
012442 105227 000000 INCB #0 ;DELAY 

2297 012446 001375 BNE 274 sDELAY 
2298 012450 005037 001416 CLR TEMP sGET SET TO DELAY 
2299 012454 005711 1$ TST (R1) ;RUN SET? 
2300 012456 100405 BM! +14 sBR IF YES 
2301 012460 peg tlh 001416 INC TEMP INC DELAY 
2302 012464 001373 BNE 1$ ;BR IF NOT DONE 
2303 012466 104014 HLT 14 ;ERROR RUN NOT SET 
2304 012470 000771 BR 1$ = TRY AGAIN 
2305 012472 052711 004043 BIS #4043, (R1) ;BASE 1, LU LOOP 
2306 b1ger8 005037 001416 CLR TEMP 3GET SET TO DELAY 
2307 012502 105711 23: TSTB (R1) RDI SET? 
2308 012504 100404 BM] .+12 7BR IF YES 
$340 012506 005237 001416 INC TEMP INC DELAY 

310 012512 001373 BNE 23 :BR IF NOT DONE 
2311 012514 104014 HLT 14 sERROR,RDI NOT SET 
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2312 012516 012761 021430 000004 MOV #BASE,4(R1) :SET UP BASE ADDRESS 
2313 012594 005061 000006 CLR 6(R1) “CLEAR cou 

2314 012530 142711 000040 BICB = #40, (R1) ‘CLEAR R 

2315 012534 005037 001416 CLR TEMP :GET Ren” TO DELAY 
2316 012540 105711 3$: TSTB (R11) ‘1S RDI GONE? 

2317 012542 100020 BPL 8$ ‘BR IF YES 

2318 012544 005237 001416 INC TEMP SINC DELAY 

2319 012550 001373 BNE 3$ ‘BR IF NOT DONE 

2320 012552 105761 000002 TSTB —s-2(R1) ‘I$ THERE A CNTL O ERROR 
2321 012556 100011 BPL 18$ :BR IF NO 

2322 012560 016137 000004 001252 MOV 4(R1), TEMPS sSAVE SEL4 FOR TYPEOUT 
2323 012566 016137 000006 001254 MOV 6(R1), TEMPS : SAVE SEL6 FOR TYPEOUT 
2324 012574 104016 HLT 16 :CNTL O ERROR 

2325 012576 000137 013402 JMP 148 sFATAL ERROR STOP 
2326 012602 104014 18$: HLT 14 sERROR RDI STILL SET 
2327 012604 8$: 

2328 012604 152711 000041 BISB #41,(R1) sASK FOR CNTL I 

2329 012610 105711 64$: TSTB (R1) sWAIT FOR RDI 

2330 012612 100376 BPL 64$ ‘BR IF NOT SETY 

2331 012614 005061 000006 CLR 6(R1) :SET FULL DUPLEX 
2332 012620 142711 000040 BICB #40, (R1) ;CLEAR RQI 

2333 012624 105711 65$: TSTB (R1) 3;RDI UP? 

2334 012626 100776 BMI 65$ ‘BR IF YES 

2335 012630 152711 000044 BISB #44, (R1) sREC BA/CC 

336 012634 005037 001416 CLR TEMP 3GET SET TO DELAY 
2337 012640 105711 4$: TSTB (R1) 31S RDI SET? 
2338 012642 100404 BMI +12 ‘BR IF YES 

339 012644 005237 001416 INC TEMP SINC DELA 

340 012650 001373 BNE 4$ ‘BR IF SELAY NOT DONE 
2341 012652 104014 HLT 14 sERROR RDI NOT SET 
2342 012654 012761 021362 000004 MOV #RBUF ,4(R1) LOAD REC BA 
2343 012662 013761 021360 000006 MOV RCOUNT,6(R1) :LOAD REC COUNT 
2344 012670 142711 000040 BICB #40, (Ri) [CLEAR RQI 
2345 012674 005037 001416 CLR TEMP :GET SET TO DELAY 
2346 012700 105711 S$: TSTB (R11) =RDI GONE? 
2347 012702 100004 BPL +12 ‘BR IF YES 
2348 0127046 005237 001416 INC TEMP SINC DELAY 

2349 012710 001373 BNE 5$ ‘BR IF NO DONE 

2350 012712 104014 HLT 14 ERROR RDI STILL SET 
2351 012714 152711 000040 BISB #40,(R1) [XMIT BA/CC 

2352 012720 005037 001416 CLR TEMP :GET SET TO DELAY 
2353 012724 105711 6$: TSTB (R11) =RDI SET? 
2354 012726 100404 BMI +12 <BR IF YES 

2355 012730 005237 001416 INC TEMP SINC DELAY 

2356 012734 001373 BNE 6$ *BR IF NOT DONE 

2357 012736 104014 HLT 14 SERROR RDI NOT SET 
2358 012740 012761 021314 000004 MOV #TBUF,4(R1) :LOAD XMIT BUFFER 
2359 012746 013761 021312 000006 MOV count 6(R1) — SLOAD COUNT 

2360 012754 142711 000040 BICB (ri) “CLEAR RQI 

2361 012760 005037 001416 CLR tens :GET SET TO DELAY 
2362 012764 105711 7$: TSTB ss (R11) =RDI GONE? 

2363 012766 100004 BPL +12 ‘BR IF VES 

2364 012770 005237 001416 INC TEMP SINC DELA 

2365 012774 001373 BNE 7$ BR IF hor DONE DELAY 
2366 012776 104014 HLT 14 TERROR RDI STILL SET 
2367 01 005037 001416 16$: CLR TEMP “GET SET TO DELAY 
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2368 013004 012737 000022 001246 MOV #22, TEMP1 :GET SET FOR LONG DELAY 
2369 013012 105761 000002 11$: TSTB  a2cRi) :RDO SET? 

2370 013016 100407 BMI 17$ ‘BR IF YES 

2371 013020 005237 001416 INC TEMP SINC DELAY 

2372 013024 001372 BNE 11$ ‘BR IF DELAY NOT DONE 
2373 013026 005337 001246 DEC TEMP! :DEC DELAY COUNT 

2374 013032 001367 BNE 118 “BR IF NOT DONE DELAY 
2375 013034 104014 HLT 14 ‘ERROR RDO NOT SET 

2376 013036 016137 000002 001250 17$: MOV 2(R1), TEMP2 “SAVE SEL2 

2377 013044 001001 BNE +4 ‘BR IF OK 

2378 013046 104014 HLT 14 TERROR!!! SEL2 = O!!it!! 
2379 013050 032761 000004 000002 BIT #B1T2,2(R1) =REC OR XMIT? 

2380 013056 001032 BNE 13$ ‘BR IF REC 

2381 013060 005737 021306 12$: TST TFLAG ‘FIRST TIME HERE? 

2382 013064 001401 BEQ +4 <BR IF YES 

2383 013066 104014 HLT i4 ‘ERROR MULTIPLE XMIT DONES 
2384 013070 012737 177777 021306 MOV #-1, TFLAG ‘SET TFLAG TO -1 

2385 013076 132761 000001 000002 BITB #B1T0,2(R1) [1S IT CONTROL 0 

2386 013104 001401 BEQ +6 :BR IF NO 

2387 013106 104014 HLT 14 :XMIT ERROR 

2388 013110 022761 021314 000004 CMP #TBUT .4(81) :XMIT BA CORRECT? 

2389 013116 001401 BEQ +4 ‘BR IF YES 

2390 013120 104014 HLT i4 :XMIT BA ERROR 

2391 013122 023761 021312 000006 CMP TCOUNT.6(R1) |: COUNT OK? 

2392 013130 001401 BEQ +4 ‘BR IF YES 

2393 013132 104014 HLT 14 :XMIT COUNT ERROR 

2394 013134 142761 000207 000002 BICB © #207, 2(R1) [CLEAR RDO AND BITS 0-2 
2395 013142 000453 BR 15$ : CONT INUE 

2396 013144 005737 021310 13$: TST RF LAG ‘FIRST TIME HERE? 

2397 013150 001401 BEQ +6 ‘BR IF YES 

2398 013152 104014 HLT 14 “ERROR MULTIPLE REC DONES 
2399 013154 012737 177777 021310 MOV #-1,RFLAG “SET RFLAG TO -1 

2400 013162 132761 000001 000002 BITB #BIT0,2(R1) ‘1S IT CNTL O 

2401 013170 001401 BEQ +4 :BR IF NO 

2602 013172 104014 HLT 14 *RECEIVE ERROR 

2603 013174 022761 021362 000004 CMP #RBUF ,4(R1) =REC BA CORRECT? 

2404 013202 001401 BEQ +4 ‘BR IF YES 

2405 013204 104014 HLT i4 :REC BA ERROR 

2406 013206 023761 021360 000006 CMP RCOUNT.6(R1) |: COUNT OK? 

2407 013214 001401 BEQ +4 ‘BR IF YES 

2408 013216 104014 HLT 14 *REC COUNT ERROR 

2409 013220 013700 021360 MOV RCOUNT,RO :GET SET TO CHECK DATA 
2410 013226 012702 021314 MOV #TBUF ,R2 *R2 POINTS TO GOOD DATA 
2411 013230 012703 021362 MOV #RBUF .R3 *R3 POINTS TO RECEIVE DATA 
2412 013234 010337 001252 9$: MOV R3, TEMPS ?SAVE ADDRESS FOR TYPEOUT 
2413 013240 112205 MOVB = (R2) +, RS *R5 = XMIT DATA 

2414 013242 112304 MOVB = (R3) +. RG [R4 = RECEIVE DATA 

2415 013244 120504 CMPB aR, RG ‘CHECK DATA 

2416 013246 001401 BEQ +4 7BR IF OK 

2417 013250 104013 HLT i3 [DATA ERROR 

2418 013252 005300 DEC RO :DEC COUNT 

2419 013254 001367 BNE $ “BR IF NOT DONE 

2420 013256 005713 TST (R3) [THIS SHOULD BE 0, ELSE 
2421 013260 001401 BEO +4 ‘IT RECEIVED TO MUCH!! 
422 013262 104014 HLT i4 ERROR 

2423 013264 142761 000207 000002 BICB #207,2(R1) ‘CLEAR RDO AND BITS 0-2 
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272 021310 15$: 
76 
021306 
304 
306 022472 
312 013340 
316 021433 21$: 
322 000010 
326 228: 
330 
332 
334 
336 
000 000 25$: 
000 000 
000 
021433 001250 23$: 
56 021435 001252 
364 021437 001254 
021441 001256 
248: 
14$: 
04 000002 001226 TST2: 
12 013744 001216 
$9 100000 001366 
: 000001 001372 
40 013726 
$3 010000 001366 
54 022030 
60 022440 
64 
66 
70 000010 
7% 000015 
500 001416 
504 000002 1$: 
510 
512 001416 
516 
520 
522 
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SSeS 


TST RFLAG sREC DONE? 
B 16$ :BR N 


IF NO 
yg F = 


TST TFLAG 

BEQ 16$ 

JSR PC, SHUTDOWN SHUT DOWN DMC 

MOV #25$,RO ;POINTER TO EXPECTED SOFT COUNTS 


MOV #BASE+3,R1 :POINTER TO ACTUAL COUNTS 


MOV #10,R2 Cou 

CMPB (ROS+,(R1)+ +o ge ® SOFT ERROR COUNTS 

BNE 23% IF ov r 23$ 

DEC R2 DEC COU 

BNE 22$ CONTINUE T CHECKING IF NOT DONE 
BR 24$ L_COUNTS OK, GET OUT 


-BYTE 0,0,0,0,0,0,0,0 ‘EXPECTED ERROR COUNTS 


MOVB BASE+3, TEMP2 
MOVB BASE+5, TEMPS 
MOVB BASE+7, TEMP4 
MOVB inl ictal 


;SCOPE THIS TEST 


peeeeeeeeterereneereeeeeeeee TEST 2 treakaneaananereerarereenet 
:*OVERUN TEST 

IN FREE RUNNING MODE SEND MESSAGE WITH NO RECEIVE 

: #BUFFER AVAILABLE, VERIFY THAT AN OVERRUN ERROR OCCURS 


PETIT T IIIT T LTE T LTT iii iii titi i tt eee cert irer T 
z CS eS BE RRS RS Se 
MOV #2,TSTNO 


MOV #TST3,NEXT 
RI ay: BASE DMC11 ADDRESS 
BIT #B1T15,STATI :1S IT A DMC? 


BEQ +16 :BR IF YES 

BIT #B1TO, STATS 3KMC WITH BITO SET? 
BNE +6 BR IF YES 

JMP 10$ SKIP TEST 

BIT #B1T12,STAT1 ;LU PRESENT? 

BNE .712 BR IF NO 


JSR PC ,BASELD 
JSR RS, XFRELD 


;LOAD DMC BASE ADDRESS 
;LOAD XMIT BA/CC 


Yad iBA 

MOV #10,R0 RO = RETRANSMISSION COUNT 
MOV #15,R3 :DELAY COUNT 

CLR TEMP CLEAR DELAY mete 

TSTB 2(R1) :1S RDY O SET? 

BMI . +20 ;BR IF SET 

INC TEMP i INC a! COUNTER 

BNE 1$ F NOT DONE ee 

DEC R3 ‘DEC DELAY COUNT 

BNE 1$ BR IF DELAY NOT DONE 
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FREE RUNNING TESTS 


11$: 


12$: 


218: 
228: 


248: 
13$: 


TST3: 









ry 
SEQ 0051 


HLT 14 sERROR, RDY O NOT SET 

BR 10% ‘GET OUT 

BITB  #B1T0,2(R1) ‘1§ IT CNTL 0? 

BNE 11$ ‘BR IF YES 

HLT 14 ‘ERROR, NOT CNTL O 

BR 10% : CONT INUE 

MOV #B1T2,R5 ‘PUT EXPECTED’ IN RS 

MOV 6(R1) RG “PUT “FOUND IN R4 

CMP RS,R4 ‘1S ORUN SET? 

BEQ 12$ :BR IF YES 

CMP #1,R4 ‘DATA CK ERROR? 

BEQ 13$ <BR IF YES 

HLT 15 :ERROR, ORUN NOT SET 

BIC #207,2(R1) =CLEAR RDO 

CLR TEMP =RESET DELAY 

DEC RO ‘DEC RETRANS COUNT 

BNE 1$ : COUNT INUE 

JSR PC, SHUTDOWN ‘SHUTDOWN DMC 

MOV #25$,R0 “POINTER TO EXPECTED SOFT COUNTS (LOW SPEED) 
BIT #BIT1,STAT3 '1S IT HIGH OR LOW 

BEQ 21$ ‘BR IF LOW 

MOV #26$,R0 “POINTER TO EXPECTED SOFT COUNTS (HIGH SPEED) 
MOV #BASE+3,R1 :POINTER TO ACTUAL COUNTS 

MOV #10,R2 = COUNT 

CMPB ss: (RO) +, (R1) + ‘COMPARE SOFT ERROR COUNTS 

BNE 23$ ‘IF ERROR BR 23$ 

DEC R2 :DEC COUNT 

BNE 22% =CONTINUE CHECKING IF NOT DONE 

BR 24$ “ALL COUNTS OK, UT 

“BYTE 0,0,077,100,0,0,0,0 sEXPECTED ERROR COUNTS (LOW SPEED) 
.BYTE 0,0,77,100,0,0,0,0 sEXPECTED ERROR COUNTS (HIGH SPEED) 
MOVB  BASE+3, TEMP2 

MOVB  BASE+5. TEMPS 

MOVB  BASE+7. TEMP4 

MOVB = BASE+11, TEMPS 

HLT 17 

SCOPE :SCOPE THIS TEST 

BIC #207,2(R1) :1GNOR THIS ERROR 

CLR TEMP SRESET DELAY 

BR 1$ : CONT INUE 


peeeeeeeerererereeeerererene TEST 3 ei aaeareenrerenenererrarene 
s*LOST DATA TEST 

7*IN FREE RUNNING MODE SEND A MESSAGE LONGER THAN THE RECEIVE 
:*BUFFER, VERIFY THAT A LOST DATA ERROR OCCURS. 


PAAR eeeeeeeeeeereeteeeredettereeteeeeeeReetetereeeeeeteeeeeeet 


MOV #3, TSTNO 


CZDRH MACY11 30A(1052) OB8-JUL-80 08:21 PAGE 53 
CZDMH.P11 08-JUL-80 08:21 FREE RUNNING TESTS SEQ 0052 
2536 013752 012737 014226 001216 MOV #TST4,NEXT 
2537 :R1 CONTAINS BASE DMC ADDRESS 
2538 013760 104412 MSTCLR [MASTER CLEAR DMC11 
2539 013762 032737 100000 001366 BIT WBITIS,STAT! 1S IT A DMC? 
2540 013770 001406 BEQ +16 ‘BR IF YES 
2541 013772 032737 000001 001372 BIT #B1TO,STAT3 [KMC WITH BITO SET? 
2542 014000 001002 BNE +6 :BR IF YES 
2543 014002 000137 014224 JMP i0$ “SKIP TEST 
2544 014006 032737 010000 001366 BIT #BIT12,STAT1 | :LU PRESENT? 
2545 014014 001372 BNE 12 BR IF NO 
2546 014016 004737 022030 JSR PC ,BASELD LOAD DMC BASE ADDRESS 
2547 014022 004537 022406 JSR RS .RFRELD LOAD rece Ive BA/CC 
2548 014026 021362 RBUF ‘BA 
2549 014030 000020 20 CC 
2550 014032 004537 022440 JSR RS, XFRELD ‘LOAD XMIT BA/CC 
2551 014036 021314 TBUF :BA 
2552 014040 000044 44 =CC 
2553 014042 012703 000015 MOV #15,R3 :DELAY COUNT 
2554 014046 005037 001416 CLR TEMP [CLEAR DELAY COUNTER 
2555 014052 105761 000002 1$: TSTB 21) [I$ RDY 0 SET? 
2556 014056 100407 BMI . +20 ‘BR IF SET 
2557 014060 005237 001416 INC TEMP ‘INC DELAY COUNTER 
2558 014064 001372 BNE 1$ ‘BR IF NOT DONE DELAY 
2559 014066 005303 DEC R3 [DEC DELAY COUN 
2560 014070 001370 BNF 1$ [BR IF DELAY NOT DONE 
2561 014072 104014 HLT 14 ‘ERROR, RDY O NOT SET 
2562 014074 000453 BR 10% :GET OUT 
2563 014076 132761 000001 000002 BITB #B1T0,2(R1) :18 IT CNTL 0? 
564 014104 001002 BNE 11$ YES 
2565 014106 104014 HLT 14 ce RROR NOT CNTL 0 
2566 014110 000445 BR 108 > CONTINUE . 
2567 014112 012705 000020 11$: MOV #BITG,RS PUT VEXPECTED IN RS 
2568 014116 016104 000006 MOV 6(R1) RG [PUT "’FOUND'’ IN 
2569 014122 020504 CMP R5,R4 1S Lost DATA SET? 
2570 014124 001401 BEQ 12$ ‘BR IF YES 
2571 014126 104015 HLT 15 SERROR, LOST DATA NOT SET 
2572 014130 004737 022472 128: JSR PC, SHUTDOWN TDOWN DMC 
2573 014134 012700 014162 MOV #25$,R0 “POINTER TO EXPECTED SOFT COUNTS 
2574 014140 012701 021433 21$: MOV #BASE+3,R1 SPOINTER TO ACTUAL COUNTS 
2575 014144 012702 000010 MOV #10,R COUNT 
2576 014150 122021 228:  CMPB  (RO)+,(R1)+ : COMPARE SOFT. RROR COUNTS 
2577 014152 001007 BNE 23$ :1F ERROR 
2578 014154 005302 DEC R2 C 
2579 014156 001374 BNE 22% : CONT INUE CHECKING i NOT DONE 
2580 014160 000421 BR 24$ L COUNTS OK, GET OL 
2581 014162 000 0 000 25$:  .BYTE 0,0,0,0,0,0,0,0 <P KPECTED ERROR COUNTS 
2582 014165 000 000 000 
2583 014170 000 000 
2584 014172 113737 021438 001250 23%: ## MOVB  BASE+3,TEMP2 
2585 014200 113737 021435 001252 MOVB BASE+5. TEMPS 
2586 014206 113737 021437 001254 MOVB  BASE+7. TFMP4 
2587 0142146 113737 021441 001256 MOVB  BASE+11, (EMPS 
2588 014222 104017 HLT 17 
2589 014224 248: 
590 014224 104400 10$: SCOPE :SCOPE THIS TEST 








te we sed 


tion MACY11 ee! Q8-JUL-80 08: e PAGE 54 


P11 08-JUL-80 08:21 FREE RUNNING TESTS SEQ 0053 

59 

59 peeterererterererererererere dg & eearaereerererereererererees 
594  * TRANSMIT NON-EXISTENT MEMORY TEST 

2595 SeIN FREE RUNNING MODE, LOAD A TRANSMIT BA THAT WILL TIME OUT 
596 :*VERIFY THAT A NON- EX{STENT MEMORY ERROR OCCURS 

944 SRERAEREREREEEREREEREREAAHERARA HEATER EHHARHEREKERERAA TERETE TES 
2598 

2599 ; TEST 4 

2600 ieceseescencene 
2601 014226 012737 000004 001226 TST4: MOV #4,TSTNO 
2602 014234 012737 014500 001216 MOV #TSTS,NEXT 

2603 3R1 CONTAINS BASE DMC11 ADDRESS 
2604 014242 104412 MSTCLR ;MASTER CLEAR DMC11 

2605 014244 032737 100000 001366 BIT #BIT15,STATI 31S IT . DMC? 

2606 014252 001406 BEQ +16 :BR IF YES 

2607 014254 032737 000001 001372 BIT #B1T0, STATS ;KMC WITH BITO SET? 

2 014262 001002 BNE .+6 BR IF YES 

2 014264 000137 014476 JMP 10$ sSKIP TEST 
2610 014270 032737 010000 001366 BIT #B'T12,STATI ;LU PRESENT? 

2611 014276 001372 BNE 712 BR IF NO 

2612 014300 004737 022030 JSR PC ,BASELD LOAD DMC BASE ADDRESS 
2613 014304 004537 022440 JSR RS,XFRELD ;LOAD xmit BA/CC 

2614 014310 177320 177320 :BA 
2615 014312 140044 140044 3t¢ 
2616 014314 012703 000015 MOV #15,R3 ;DELAY COUNT 
2617 014320 005037 001416 CLR TEMP ;CLEAR DELAY snares 

2618 014324 105761 000002 1$: TSTB 2(R1) s1S RDY O SET? 

619 Spat 180507 BMI .*20 “BR IF SET 

620 14 005237 001416 INC TEMP ; INC DELAY COUNTER 
2621 014336 001372 BNE 1$ ‘BR IF NOT DONE DELAY 
2622 014340 005303 DEC R3 ;DEC DELAY COUNT 
2623 014342 001370 BNE 1$ ‘BR IF DELAY NOT DONE 
2624 014344 104014 HLT 14 sERROR, RDY O NOT SET 
2625 014346 0004653 BR 10$ GET OUT 
2626 014350 132761 000001 000002 BITB #B1T0,2(R1) 318 IT CNTL 0? 
2627 014356 001002 BNE 11$ ‘BR IF YES 
2628 014360 104014 HLT 14 sERROR, NOT CNTL O 
2629 014362 000445 BR 10$ ; CONTINUE 
2630 014364 012705 000400 11$: MOV #B1T8,R5 PUT "EXPECTED" ie R5 
2631 614370 016104 000006 MOV 6(R1),R4 [PUT 'FOUND'’ IN 
2632 014374 020504 CMP R5,R4 71S NON-EX-MEM set? 
263 014376 001401 BEQ a* sBR IF YES 
2634 014400 104015 HLT iS sERROR NON-EX-MEM NOT SET 

2635 014402 004737 022472 JSR PC ,SHUTDOWN ;SHJTDOWN DM 

2636 014406 012700 014434 MOV #25$,RO :POINTER TO EXPECTED SOFT COUNTS 
263 14412 12701 021433 21$: MOV #BASE+3,R1 het TO ACTUAL COUNTS 

2638 Orcas 012702 000010 MOV #10,R2 T 

2639 1442 122021 228: CMPB (RO)+,(R1)+ : COMPARE SOFT ERROR COUNTS 

2640 014424 001007 BNE 23% ‘IF ERROR BR 23$ 

641 014426 005302 DEC R :D COUNT 

64 0144 001374 BNE sft : CONT INUE CHECKING 34 a DONE 
264 014432 000421 BR 243 L COUNTS OK, GET 0 

2644 0144634 000 000 000 25%: BYTE 0,0,0,0,0,0,0,0 ‘PU PECTED ERROR Srinth. 

645 014437 000 000 000 

646 014442 000 000 
2647 014444 113737 021433 001250 238: MOVB BASE+3, TEMP2 





Se J 


CZDMH  MACY11 30A(1052) 0 
CZDMH.P11 08-JUL-80 08:21 
2648 014452 113737 021435 
2649 014460 113737 021437 
2650 014466 113737 021441 
2651 014474 104017 
2652 014476 
2653 014476 104400 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 014500 012737 000005 
et 014506 012737 014762 
2667 014514 104412 
2668 014516 032737 100000 
2669 014524 001406 
2670 014526 032737 000001 
2671 014534 001002 
2672 014536 000137 014760 
2673 014542 032737 010000 
2674 014550 001372 
2675 014552 004737 022030 
2676 014556 004537 022406 
2677 014562 177320 
2678 014564 140044 
2679 014566 004537 022440 
2680 014572 021314 
2681 014574 000044 
2682 014576 012703 000015 
2683 014602 0050357 001416 
2684 014606 105761 000002 
2685 014612 100407 
2686 014614 005237 001416 
2687 014620 001372 
2688 014622 005303 
2689 014624 001370 
2690 geese 104014 
2691 0146 000453 
2692 014632 132761 000001 
2693 014640 001002 
2694 014642 104014 
2695 bp ep: 000445 
2696 014646 012705 00040 
2697 Brees 016104 000006 
2698 014656 020504 
2699 12668 1401 
2700 014662 104015 
2701 014 004737 022472 
2702 014670 012700 014716 
2703 014674 012701 021433 


8-JUL-80 08:21 


001366 
001372 


001366 


000002 
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FREE RUNNING TESTS 


24$: 
10$: 


TSTS: 


1$: 


11$: 


218: 


C 
MOVB BASE+S, TEMPS 
MOVB  BASE+7. TEMPG 
MOVB BASE+11, TEMPS 
HLT 17 

SCOPE 


SEQ 0054 


SCOPE THIS TEST 


peeneeteeeeeteretereeeeerene TEST 5 seeeneneaereeerenetereretet 
:*RECEIVE NON-EXISTENT MEMORY TEST 

;*IN FREE RUNNING MODE, LOAD A RECEIVE BA THAT WILL TIME OUT 
;*VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS 


3 FRMAAAARAAAAAAKARAAAERAAARARAAAAAAAAAAAAEAEAAAEAAAAAAE ARATE 


; TEST 3 

MOV #5,TSINO 
MOV #TST6,NEXT 
MSTCLR 

BIT #BITIS, STATI 
BEQ .+16 

BIT #BITO,STATS 
BNE +6 

JMP 10$ 

BIT #B1IT12,STATI 
BNE cl2 

JSR PC,BASELD 
JSR R5,RFRELD 
177320 

140044 

JSR RS,XFRELD 
TBUF 

or 

MOV #15,R3 

CLR TEMP 

TSTB 2(R1) 

BM! +20 

INC TEMP 

BNE 1$ 

DEC R3 

BNE 1$ 

HLT 14 

BR 10$ 

BITB #B1T0,2(R1) 
BNE 11$ 

HLT 14 

BR 10$ 

MOV #B1T8,R5 
MOV 6(R1),R4 
CMP R5,R4 

BEQ + 

HLT 15 

JSR PC, SHUTDOWN 
MOV #25$,R0 

MOV #BASE+3,R1 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 

:1S IT A DMC? 

;BR IF YES 

;KMC WITH BITO SET? 

;BR IF YES 

;SKIP TEST 

;LU PRESENT? 


;BR IF NO 
;LOAD DMC BASE ADDRESS 
<a RECEIVE BA/CC 


sCE 

dS ag XMIT BA/CC 

CC 

:DELAY COUNT 

;CLEAR DELAY COUNTER 
:1S RDY O SET? 


3;BR IF SET 

; INC DELAY COUNTER 

;BR IF NOT DONE DELAY 
:DEC DELAY COUNT 

sBR IF DELAY NOT DONE 
sERROR, RDY O NOT SET 
3;GET OUT 

31S IT CNTL 0? 

sBR IF YES 

sERROR, NOT CNTL O 

; CONTINUE 

;PUT “‘EXPECTED’’ IN RS 
PUT ‘FOUND’ IN R4 

71S NON-EX-MEM SET? 

sBR IF YES 

sERROR NON-EX-MEM NOT SET 
;SHUTDOWN DAC 

sPOINTER TO EXPECTED SOFT COUNTS 
sPOINTER TO ACTUAL COUNTS 


sorapneencaemennesespeenaneeNnaDtttes - 
MACY11 30A(1052) Q8-JUL-80 08:21 PAGE 56 
11 08-JUL-80 08:21 FREE RUNNING TESTS SEQ 0055 


014700 012702 000010 MOV #10,R2 ; COUNT 

014704 122021 228: CMPB (ROS+,(R1)+ 4) SOFT ERROR COUNTS 

014706 001007 BNE 23% F ERROR BR 23$ 

014710 005302 DEC Re DEC COUNT 

014712 001374 BNE 228 ;CONTINUE CHECKING IF NOT DONE 

014714 000421 BR 248 ALL COUNTS OK, GET OUT 

014716 000 000 000 25%: BYTE 0,0,0,0,0,0,0,0 :EXPECTED ERROR COUNTS 

014721 000 000 000 

014724 000 000 

014726 113737 021433 001250 238: MOVB BASE+3,TEMP2 

014734 113737 021435 001252 MOVB BASE +5 , TEMPS 

014742 113737 021437 001254 MOVB BASE+7, TEMP4 

014750 113737 021441 001256 MOVB BASE+11, TEMPS 

014756 104017 HLT 17 

014760 24$: 

014760 104400 10$: SCOPE ;SCOPE THIS TEST 
peeeeanererrererereeeeereene TEST 6 tettreetanerteneretereennns 
:*PROCESSOR ERROR TEST 
:tIN FREE RUNNING MODE, DO A BASE TRANSFER REQUEST AFTER A 
:*BASE HAS BEEN SET UP, VERIFY THAT A PROCESSOR ERROR OCCURS. 

ovorevrrrrrerrrrrretTITiTitiii tii iitititi titi tii iiiit ttt iit 

; TEST 6 

014762 012737 000006 001226 TST6: MOV #6,TSTNO 

014770 012737 015224 001216 MOV #TST7,NEXT 

:R1_ CONTAINS ye? ~— ADDRESS 

014776 104412 MSTCLR MASTER CLEAR DMC 

015000 032737 100000 001366 BIT #B1T15,STAT1 :1S IT A_DMC? 

015006 001406 BEQ +16 :BR IF YES 

015010 032737 000001 001372 BIT #BITO,STAT3 sKMC WITH BITO SET? 

015016 001002 BNE +6 :BR IF YES 

015020 000137 015222 JMP 10$ :SKIP_ TEST 

015024 032737 010000 001366 BIT #BIT12,STATI ;LU PRESENT? 

015032 001372 BNE “12 ;BR IF NO 

015034 004737 022030 JSR PC ,BASELD LOAD BASE ADDRESS 

015040 152711 000043 128: BISB. #48, (R1) :2ND BASE REQUEST 

015044 105711 TSTB (R15 1 SET? 

015046 100376 BPL 272 ‘BR. NO 

015050 142711 000040 BICB #40, (R1) ;CLEAR RQI 

015054 005037 001416 CLR TEMP +3 set TO DELAY 

015060 105761 000002 13$: TSTB 2(R1) RDO SET? 

015064 100405 BMI 14$ :BR IF YES 

015066 005237 001416 INC TEMP : INC DELA 

015072 001372 BNE 13$ :BR IF NOT DONE DELAY 

015074 104014 HLT 14 sERROR, RDO NOT SET 

015076 orer ry BR 13$ sTRY AGAIN 

015100 132761 000001 000002 14%: BITB = #BITO,2(R1) :1S IS CNTL 0? 

015106 001002 BNE 11$ :BR IF YES 

015110 104014 HLT 14 ;ERROR NOT CNTL 0 

015112 000443 BR 10% ; CONTINUE 

015114 012705 061000 11$: MOV #B1T9,R5 :PUT Oth Pe R5 

015120 016104 000006 MOV 6(R1) ,R4 :PUT ‘'FOUND' 

015124 020504 CMP R5,R4 :1S PROC ERROR set? 





CZDMH MACY11 30A(1052) O08-JUL-80 08: e} PAGE 57 
CZD0MH.P11 08-JUL-80 08:21 FREE RUNNING TESTS SEQ 0056 
2760 ora 1g8 001401 BEQ +4 BR IF YES 
2761 015130 104015 HLT 15 “ERROR PROC ERROR NOT SET 
276 aE 012700 015160 MOV #25$.R0 ‘POINTER TO EXPECTED SOFT COUNTS 
2763 0151 012701 021433 21$: MOV #BASE+3,R1 :POINTER TO ACTUAL COUNTS 
2764 015142 012702 000010 MOV #10,R ; COUNT 
2765 015146 122021 228: CMPB (RO)+,(R1)¢ ; COMPARE SOFT ERROR COUNTS 
2766 015150 001007 BNE 238° IF ERROR ~ 238 
2767 015152 005302 DEC R2 :DEC COUN 
2768 015154 001374 BNE 223 + CONTINUE CHECKING IF NOT DONE 
2769 015156 000421 BR 24% ALL COUNTS OK, GET OUT 
2770 015160 000 009 000 25$: -BYTE 0,0,0,0,0,0,0,0 ; “EXPECTED ERROR COUNTS 
2771 +015163 000 000 000 
2772 015166 000 000 
2773 «4015170 113737 021433 001250 238: MOVB BASE+3,TEMP2 
2774 015176 113737 021435 001252 MOVB BASE+5, TEMPS 
2775 015204 113737 021437 001254 MOVB BASE+7, TEMP4 
2776 «4015212 113737 021441 001256 MOVB BASE+11, TEMPS 
2777 +=015220 104017 HLT 17 
2778 015222 248: 
2779 =015222 104400 10$: SCOPE ;SCOPE THIS TEST 
m 
2782 peeeeeeeeerererereeerereeeee TEST 7 eeeeeeeeeeeeekeeeeeteeerene 
2783 :*PROCESSOR ERROR TEST 
2784 :*IN FREE RUNNING MODE DO A ROI WITH AN ILLEGAL 10 CODE 
2785 s*VERIFY THAT A PROCESSOR ERROR OCCURS 
2786 PPETTTITITIVITITITIS IETS, 
2787 
2788 TEST 7 
2789 proweooooceos-- 
2790 015224 012737 000007 001226 TST7: MOV #7,TSTNO 
2791 1015232 012737 015466 001216 MOV #TST10,NEXT 
2792 :R1 CONTAINS BASE DMC11 ADDRESS 
2793 015240 104412 MSTCLR “MASTER CLEAR DMC11 
2794 015242 032737 100000 001366 BIT #BIT15,STATI 31S IT A DMC? 
2795 015250 001406 BEQ .+16 :BR IF YES 
2796 015252 032737 000001 001372 BIT #BITO,STATS sKMC WITH BITO SET? 
2797 015260 001002 BNE .+6 :BR IF YES 
2798 015262 000137 015464 JMP 10% ;SKIP TEST 
2799 015266 032737 010000 001366 BIT #B1T12,STATI LU PRESENT? 
2800 015274 001372 BNE 712 BR IF NO 
2801 015276 004737 022030 JSR PC ,BASELD LOAD DMC BASE ADDRESS 
2802 015302 152711 000046 B1SB8 #46, (R1) RQ] AND’ ILLEGAL CODE 
2803 015306 105711 TSTB (R1) sWAIT FOR RDI 
2804 015310 100376 BPL .72 :BR IF NO RDI 
2805 015312 142711 000040 BICB #40,(R1) ;CLEAR RQI 
2 015316 005037 001416 CLR TEMP 7 CLEAR COUNTER 
280 015322 105761 000002 1$: TSTB 2(R1) ;RDY O SET? 
2808 HER 100405 BMI .+14 :BR IF YES 
2809 0153 005237 001416 INC TEMP ‘BUMP COUNTER DELAY 
2810 015334 001372 BNE 1$ ;BR IF NOT DONE 
2811 015336 104014 HLT 14 ERROR NO RDY 0 
saig 015340 000770 BR 1$ sTRY AGAIN 
2813 015342 132761 000001 000002 BITB #B1T0,2(R1) iis IT CNTL O 
2814 015350 001002 BNE 11$ R IF YES 
2815 015352 104014 HLT 14 “ERROR, NOT CNTIL O 
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FREE RUNNING TESTS 
BR 10% 

11$: MOV #BIT9,RS 
MOV 6(R1), RS 
CMP R5,R4 
BEQ .*4 
HLT 15 
MOV #25$,R0 

21$: MOV #BASE+3,R1 
MOV #10,R2 

228: CMPB (RO)+,(R1)¢ 
BNE 238 
DEC R2 
BNE 223 
BR 24% 

258: -—BYTE 0,0 

238: MOVB BASE +3, TEMP2 
MOVB BASE+S, TEMPS 
MOVB BASE+7, TEMP4 
MOVB BASE+11, TEMPS 
HLT 17 

248: 

10$: SCOPE 
S*HALF DUPLEX TEST 
s Vest 10 

TST10: MOV #10,1STNO 
MOV @TST11,NEXT 
MSTCLR 
BIT #B1T15,STATI 
BEQ +16 
BIT #BITO,STAT3 
BNE .*6 
JMP i0$ 
BIT wei rtt2. STATI 
BNE 12 
JSR Pc, BASELH 
JSR RS, RFRELD 
RBuF 
44 
JSR RS, KFRELD 
TBUF 
44 
MOV #3R3 
CLR TEMP 

4$: wh, 2(R1) 


; CONT 

;PUT AEXPECTED" i R5 
;PUT ‘’FOUND'’ IN 

iTS B® ee SET? 


‘ERROR PROC ERROR NOT SET 
:POINTER TO EXPECTED SOFT COUNTS 
:POINTER TO ACTUAL COUNTS 


; COUN 
+ ge SOFT ERROR COUNTS 
F ERROR I R 23$ 


‘DEC COUN 
CONTINUE CHECKING “ oa DONE 
UNTS OK, GET 


ALL CO 
-0,0,0,0,0,0 EXPECTED ERROR COUNTS. 


;SCOPE THIS TEST 


peeeeeeererereeretereneeneee TEST 1) eeeneeneeeeneenreereeererene 


3*IN FREE RUNNING MODE, SET HALF DUPLEX AND L U LOOP 
7*SEND A MESSAGE AND VERIFY THAT THERE ARE NO DONES 


2 FRARAARAHEARAAEHAAEARATETAAEAAAREAAARAAERARAAAREAAARAKEKAEEKKEeHe ERE 


:R1 CONTAINS wo: DMC11 ADDRESS 
;MASTER CLEAR DMC11 
:1S IT A DMC? 


BR IF YES 

3KMC WITH BITO SET? 
:BR IF YES 

;SKIP TEST 


[LU PRESENT? 
:BR IF NO 


[LOAD BASE AND HALF DUPLEX 
1 RECEIVE BUFFER 


CC 
See TRANSMIT BUFFER 


:CC 

;LOAD DELAY COUNT 
s CLEAR DELAY 

31S DONE SET? 

;BR IF YES (ERROR) 


SEQ 0057 
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2872 015602 005237 001416 INC TEMP : INC DELA 
2873 015606 001372 BNE 4$ “BR IF DELAY NOT DONE 
2874 015610 005303 DEC R3 DEC DELAY COUNT 
2875 015612 001370 BNE 4$ ;BR IF DELAY NOT DONE 
2876 015614 104400 10$: SCOPE ;SCOPE THIS TEST 
2877 015616 104014 5$: HLT 14 sERROR DONE WITH HALF-DUPLEX 
2878 015620 000775 BR 10% 3GET OUT 
2879 
2880 
2881 peeeeeeneerereretertererenee TEST 1] eeeeeeereereneeeereaaeretet 
2882 + *RESUME TEST 
2883 s*THIS TEST SENDS AND RECEIVES A BUFFER AND SHUTS DOWN THE 
2884 *DMC. THEN A MASTER CLEAR IS ISSUED AND A BASE WITH RESUME 
2885 :*BIT SET IS GIVEN, ANOTHER BUFFER IS SENT AND RECEIVED. 
2886 7*DATA IS CHECKED. 
2887 PI AAAARAHARATAR EHH T HEHE K HAKATA KE THERE AAA H eee ee Tee et 
2888 
2889 s es’ Vi 
2890 poorer oececoee- 
2891 015622 012737 000011 001226 TST11: MOV #11,TSTNO 
2892 015630 012757 016204 001216 MOV #TST12,NEXT 
2893 3R1 CONTAINS BASE DMi11 ADDRESS 
2894 015636 104412 MSTCLR sMASTER CLEAR DMC11 
2895 015640 032737 100000 001366 BIT #BIT15,STATI 31S IT A DMC? 
2896 015646 001406 BEQ +16 [BR IF YES 
2897 015650 032737 000001 001372 BIT #BITO,STATS :KMC WITH BITO SET? 
2898 015656 001002 BNE +6 R IF YES 
2899 015660 000137 016202 JMP 10$ “SKIP TEST 
2900 015664 032737 010000 001366 BIT #B1T12,STAT1 ‘LU PRESENT? 
2901 015672 001372 BNE 712 ;BR IF NO 
2902 015674 005037 020050 CLR RESUME CLR RESUME FLAG 
2903 915700 005737 020050 1$: TST RESUME ;FIRST OR SECOND PASS? 
2904 015704 001003 BNE 2$ ;BR IF SECOND 
2905 015706 004737 022030 JSR PC ,BASELD ;BASE 
2906 015712 000402 BR 3$ ; CONTINUE 
2907 015714 004737 022266 2$: JSR PC,RESUM ;BASE WITH RESUME BIT 
2908 015720 004537 022406 3$: JSR R5,RFRELD RECEIVE BUFFER 
2909 015724 021362 RBUF :BA 
2910 015726 000044 44 :CC 
2911 015730 004537 022440 JSR RS,XFRELD ;XMIT BUFFER 
2912 015734 021314 TBUF :BA 
2913 015736 900044 44 ste 
2914 015740 012703 000030 MOV #30,R3 ;DELAY COUNT 
2915 015744 012700 000002 MOV #2,R0 ;NEED TWO DONES 
2916 015750 005037 001416 CLR TEMP ;CLEAR DELAY COUNTER 
2917 015754 105761 000002 4$: TSTB 2(R1) 71S RDY O SET? 
2918 015760 100407 BM! . +20 ;BR IF SET 
2919 015762 005237 001416 INC TEMP : INC DELAY COUNTER 
2920 015766 001372 BNE 4% :BR IF NOT ter ~~ 
2921 015770 005303 DEC R3 ;DEC DELAY COUN 
2922 015772 001370 BNE 4$ ‘BR IF DELAY NOT DONE 
2923 015774 104014 HLT 14 sERROR, RDY O NOT SET 
2924 015776 000501 BR 10% 3GET OUT 
2925 016000 042761 000207 000002 BIC #207,2(R1) aGLeA AR DONE 
2926 016006 005300 DEC RO TWO DONES YET? 
2927 016010 001361 BNE 4$ BR IF NOT 
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2928 016012 012702 021314 MOV #TBUF RZ sADDRESS OF GOOD DATA | 

2929 016016 012703 021362 MOV #RBUF RS SADDRESS OF RECEIVED DATA 

2930 016022 012700 000044 MOV #44 ,R6 COUNT 

2931 016026 112205 6$: MOVB = (R25 +, RS ‘LOAD GOOD DATA 

2932 016030 112304 MOVB (R3)+,R4 ;LOAD FOUND DATA 

2933 016032 120504 CMPB aR, RG ‘COMPARE DATA 

2934 016034 001401 BEQ 7$ ‘BR IF OK 

2935 016036 104012 HLT 12 “DATA ERROR 

2936 016040 005300 7$: DEC RO DONE YET? | 

2937 016042 001371 BNE 6$ :BR IF NOT 

2938 016044 004737 022472 JSR PC,SHUTDOWN ; SHUTDOWN DMC 

2939 016050 005737 020050 TST RESUME 

2940 016054 001004 BNE ay “BR IF ALL DONE 

2941 016056 012737 177777 020050 MOV #-1,RESUME ;SET FLAG FOR SECOND PASS 

2942 016064 000705 BR 1$ : CONT INUE 

2943 016066 8$: 

2944 016066 012700 016130 MOV #25$,R0 sPOINTER TO EXPECTED SOFT COUNTS (LOW SPEED) 

2945 016072 032737 000002 001372 BIT #BIT1,STAT3 ‘I$ IT HIGH OR LOW 

2946 016100 001402 BEQ 21$ ‘BR IF LOW 

2947 016102 012700 016140 MOV #26$,R0 ‘POINTER TO EXPECTED SOFT COUNTS (HIGH SPEED) 

2948 016106 012701 021433 21$: MOV #BASE+3,R1 *POINTER TO ACTUAL COUNTS 

2949 016112 012702 000010 MOV #10,R2 = COUNT 

2950 016116 122021 22$: CMPB (RO)+,(R1)+ ;COMPARE SOFT ERROR COUNTS 

2951 016120 001013 BNE 23$ ‘IF ERROR BR 23$ 

2952 016122 005302 DEC R2 “DEC COUNT 

2953 016124 001374 BNE 22$ : CONTINUE CHECKING IF NOT DONE 

2954 016126 000425 BR 24$ ALL COUNTS OK, GET OUT 

2955 016130 000 000 000 25$: BYTE 0,0,0,0,0,0,0,0 “EXPECTED ERROR COUNTS (LOW SPEED) 

2956 016133 000 000 000 

2957 016136 000 000 

2958 016140 000 000 000 268: .BYTE 0,0,0,0,0,0,0,0 ;EXPECTED ERROR COUNTS (HIGH SPEED) 

2959 016143 900 000 000 

2960 016146 000 000 

2961 016150 113737 021433 001250 23$: § MOVB  BASE+3,TEMP2 

2962 016156 113737 021435 001252 MOVB  BASE+5. TEMP 

2963 016164 113737 021437 001254 MOVB  BASE+7.TEMP4 

2964 016172 113737 021441 001256 MOVB = BASE+11, TEMPS 

2965 016200 104017 HLT 17 

2966 016202 248: 

2967 016202 104400 10$: SCOPE sSCOPE THIS TEST 

2968 

2969 

2970 peeetenetererrererererrreeee TEST 12 xeeeeeeeeeererereneerereees 

2971 *FREE RUNNING DATA TEST (INTERRUPT DRIVEN EXERCISER) 

2972 :*THIS TEST REPEATEDLY QUEUES UP 7 RECEIVE BUFFERS AND 

2973 +47 TRANSMIT BUFFERS AND CHECKS DATA WHEN ALL 7 BUFFERS 

2974 S*ARE RECEIVED. TRANSMIT COUNTS RANGE FROM 2 10 104. 

2975 eDATA IS A BINARY COUNT PATTERN. THE RESUME FUNCTION 

2976 [*]S CHECKED IN THIS TEST. THIS TEST USES THE TURNAROUND CONNECTOR 

2977 elf IT IS PRESENT, OTHERWISE LINE UNIT LOOP IS SET 

2978 Pevererererrerererrcrrsrrrrrrrerrrererrretr Teter ti titi iti titi 

2979 

soar ; TEST 12 

2982 0162046 012737 000012 001226 TST12: MOV #12, TSTNO 

2983 016212 012737 003364 001216 MOV #.EOP NEXT 
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2984 :R1 CONTAINS BASE DMC11 ADDRESS 
2985 016220 104412 MSTCLR MASTER CLEAR DMC11 
2986 016222 032737 100000 001366 BIT #BIT15,STATI ‘1S IT A DMC? 
2987 016230 001406 BEQ +1 :BR IF YES 
2988 016232 032737 000001 001372 BIT #BITO,STAT3 ‘KMC WITH BITO SET? 
2989 016240 00100 BNE - 3 [BR IF YES 
2990 016242 000137 017034 JMP END “SKIP TEST 
2991 016246 032737 010000 001366 BIT oerria. STATI ‘LU PRESENT? 
2992 016254 001372 BNE <1 ‘BR IF NO 
2993 016256 012737 000340 177776 MOV #340,PS SLOCK OUT INTERRUPTS 
2994 016264 013700 001366 MOV STATI, RO ‘GET BR LEVEL 
2995 016270 006200 ASR RO ‘SHIFT RIGHT 4 TIMES 
2996 016272 006200 ASR RO 
2997 016274 006200 ASR RO 
2998 016276 006200 ASR RO 
2999 016300 042700 177437 BIC #177437,R0 :PUT BR LEVEL IN RO 
3000 016304 012777 017122 163062 MOV #IISR,@DMRVEC ;:LOAD INPUT VECTOR 
3001 016312 010077 163060 MOV RO, @DMRLVL [LOAD LEVEL 
3002 016316 012777 017412 163054 MOV #OISR,@DMTVEC LOAD OUTPUT VECTOR 
3003 016324 010077 163052 MOV RO, @DMTLVL [LOAD LEVEL 
$008 s INITIALIZE ALL BUFFER LISTS AND COUNT LISTS 
3007 016330 012737 000104 021306 MOV #104, TFLAG :TFLAG CONTAINS COUNT 
3008 016336 012700 020054 MOV #XMITBA+2,RO | :RO POINTS TO BA LIST 
3009 016342 012703 020346 MOV #RBUFF,R3 =R3 CONTAINS BUFFER ADDRESS 
3010 016346 010320 1$: MOV R3, (RO)+ ‘LOAD BA LIST WITH REC BA 
3011 016350 062703 000104 ADD #164 ,R3 ‘UPDATE BUFFER ADDRESS 
3012 016354 022700 020072 CMP #XMITBA+20,RO [END OF REC BUFFERS? 
3013 016360 001372 BNE 1$ ‘NO LOAD NEXT ONE 
3014 016362 012720 020110 2$: MOV #TBUFF,(RO)+ | :LOAD BA LIST WITH XMIT BA 
3015 016366 022700 020110 CMP #XMITBA+36,RO  :END OF XMIT BUFFERS? 
3016 016372 001373 BNE 2$ ‘NO LOAD NEXT BUFFER 
3017 016374 012700 020222 MOV #RCNTAB+2,RO | :RO POINTS TO COUNT LIST 
3018 016400 013720 021306 3$: MOV TFLAG, (RO)+ ‘LOAD COUNT OF 104 
3019 016404 022700 020240 CMP #RCNTAB+20,RO :END OF REC COUNT LIST? 
3020 016410 001373 BNE 3$ iBR IF NO 
3021 016412 012737 000005 021304 MOV #5,FLAG ;LOOP COU 
3022 016420 012711 040000 MOV #BiT14,(R1) USET MASTER CLEAR 
3023 016424 032737 100000 001366 BIT #BIT15,STATI :10P? 
3024 016432 001402 BEQ +6 7BR IF N 
3025 016434 012711 100000 MOV dts, (R1) *SET RUN ON IOP 
3026 016440 012700 177777 MOV #-1,R0 :RO IS INPUT bone COUNTER 
3027 016444 005037 020050 CLRTAB: CLR RESUME “CLEAR RESUME FLAG 
3028 016450 012705 020256 MOV #RONTAB, RS *GET READY TO CLEAR ALL RECEIVE 
3029 016454 005025 2$: CLR (RS) + : BUFFERS 
3030 016456 022705 021302 CMP #RBUFFE,RS ‘END OF BUFFER? 
3031 016462 001374 BNE 2$ :BR IF NO 
3032 016464 012704 020240 MOV #XCNTAB, R4 =R4 POINTS TO XMIT COUNT LIST 
3033 016470 013724 021306 4$: MOV TFLAG, (R4)+ *LOAD XMIT CHAR COUNT 
3034 016474 022704 020256 CMP #@XCNTAB+16,R4 DONE? 
3035 016500 001373 BNE 4$ ‘BR IF NO 
3036 016502 005002 5$: CLR R2 ‘ is OUTPUT DONE COUNTER 
3037 016504 005004 CLR RL *R4 IS USED ,AS INDEX IN OISR 
3038 016506 005711 TST (R1) >1S RUN SET? 
3039 016510 100376 BPL -2 “WAIT FOR RUN 
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3040 016512 152761 000100 000002 BISB #B1T6,2(R1) :SET IEO 
3041 016520 032737 040000 001366 BIT #B1T14, STATI : LOOP BACK CONNECTOR? 
3042 016326 001002 BNE “4 R IF YES 
3043 016530 052711 004000 BIS #B1T11,(R1) SET LINE UNIT LOOP 
3044 016534 022737 000005 021304 CMP #5, FLAG “FIRST TIME? 
3045 016542 001003 BNE 1$ :BR IF NOT 
3046 016544 052711 000143 BIS #143, (R1) ;SET 161 ,RQ1,BASE | 
3047 016550 000402 BR : CONTINUE 
3048 016552 052711 000144 1$: BIS #144, (R1) ‘SET IEI, RQI, REC BA/CC 
3049 016556 005037 001416 3$: CLR TEMP ‘SET UP FOR DELAY COUNT 
3050 016562 012737 000022 001250 MOV #22, TEMP2 [GET SET FOR DELAY 
3051 016570 005037 177776 CLR PS ‘ALLOW INTERRUPTS 
3052 016574 022700 000020 SCAN: CMP #20,R0 s INPUT DONE? 
3053 016600 001402 BEQ SCAN2 :BR IF YES 
3054 016602 000137 017072 JMP SCAN1 :BR IF NO 
3055 016606 022702 000034 SCAN2: CMP #34 ,R2 =XMIT DONE FOR ALL MESSAGES? 
3056 016612 003 BEQ 8$ ‘BR IF YES 
3057 016614 1 017072 JMP SCAN1 :BR IF NO 
3058 016620 022704 000034 8S: CMP #34 RG [REC DONE FOR ALL MESSAGES? 
3059 016624 001402 BEQ 9$ “BR IF YES 
3060 016626 000137 017072 JMP SCAN1 ‘BR IF NO 
3061 016632 9$: 
3062 016632 012700 020256 MOV #RONTAB, RO :GET FIRST REC BUFFER 
3063 016636 012002 5$: MOV (RO)+,R2 :R2 POINTS TO BUFFER 
3064 016640 005005 CLR R5 *R5S=EXPECTED 
3065 016642 005003 CLR R3 :R3 = COUNT 
3066 016644 010237 001252 6$: MOV R2, TEMPS :SAVE ADDRESS FOR TYPEOUT 
3067 016650 112204 MOVB = (R2) +, RG [GET RECEIVE DATA 
3068 016652 120504 CMPB sR, RG :1S IT CORRECT? 
3069 016654 001401 BEQ +4 :BR IF YES 
3070 016656 104013 HLT 13 ‘DATA ERROR 
3071 016660 005205 INC oe ting *NEXT CHARACTER 
3072 016662 005203 INC R3 : INC COUNT 
3073 016664 021003 CMP (RO),R3 :DONE YET? 
3074 016666 001366 BNE 6$ “BR IF NO 
3075 016670 062700 000002 ADD #2,R0 *GET NEXT REC BUFFER 
3076 016674 022700 020312 CMP #RONTAB+34,RO0 DONE YET? 
3077 016700 001356 BNE 5$ :BR IF NO 
3078 016702 012700 000001 MOV #1,R0 :SET RO TO 1 
3079 016706 032737 000001 021304 4$: BIT #BITC, FLAG : CHANGE CHAR COUNT FOR NEXT LOOP 
3080 016714 001003 BNE 1$ “BR TO SUB 40 
3081 016716 005337 021306 DEC TFLAG :DEC BY ONE 
3082 016722 000403 Br 2$ : CONTINUE 
3083 016724 162737 000040 021306 1%: SUB #40, TFLAG *SUBTRACT 40 FRON XMIT COUNT 
3084 016732 005337 021304 2$: DEC FLAG :DEC LOOP COUNT 
3085 016736 001242 BNE CLRTAB :GO DO IT AGAIN 
3086 016740 152711 000146 ENDEX: BISB #146,(R1) sSHUT DOWN DMC 
3087 016744 005737 021304 1$: TST FLAG :HAS INTERRUPT OCCURED? 
3088 016750 001775 BEQ 1 R IF NO 
3089 016752 012700 017014 MOV #108,R0 AT POINTS TO LO SPEED COUNTS 
3090 016756 032737 000002 001372 BIT #BITI,STAT3 iI IT LO SPEED? 
3091 016764 001402 BEQ 23 R IF YES 
3098 016766 012700 017024 MOV #11$,R0 RO POINTS TO HI COUNTS 
016772 012701 021433 28: MOV #BASE+3,R1 *POINTER TO ACTUAL COUNTS 
3094 016776 012702 000010 MOV #10,R2 °10 COUNTS TO CHECK 
3095 017002 122021 3$: CMPB (RO)+,(R1)+ SCHECK COUNT 


CZDMH MACY11 ae A _— 08:21 PAGE 63 


CZDMH.P11 08-JUL-8 FREE RUNNING TESTS SEQ 0062 
3096 017004 103414 BLO ENDEX2 ;BR IF ERROR 
3097 017006 005302 DEC R2 ;DEC COUNT 
3098 017010 001374 BNE 3$ :BR IF NOT DONE 
3099 017012 000410 BR ENDEX1 sALL OK GET OUT 
3100 017014 000 000 000 108: -BYTE 0,0,0,0,0,0,5.5 ;EXPECTED LO SPEED COUNTS 
3101 017017 000 000 000 
3102 017022 005 005 
3103 017024 000 000 005 11$: -BYTE 0,0,5,0,0,0,5,5 ;EXPECTED HI SPEED COUNTS 
3104 017027 000 000 000 
3105 017032 005 005 
3106 017034 104400 ENDEX1: SCOPE SCOPE THIS TEST 
3107 017036 113737 021433 001250 ENDEX2: MOVB BASE+3, TEMP2 ;SAVE ALL ODD ADDRESSES 
3108 017044 113737 021435 1252 MOVB BASE+5 , TEMP3 FOR TYPEOUT 
3109 017052 113737 021437 001254 MOVB BASE+7, TEMP4 3 
3110 017060 113737 021441 001256 MOVB BASE+11, TEMPS 
3111 066 104017 HLT 17 ;NON ZERO ERROR COUNT 
3112 017070 000761 BR ENDEX1 :GET OUT 
3113 017072 005337 001416 SCAN1: DEC TEMP sDECREMENT DELAY COUNTER 
3114 017076 001402 BEQ 1$ ;BR IF ZERO 
3115 017100 000137 016574 JMP SCAN :BR IF NOT DONE DELAY 
3116 017104 005337 001250 1$: DEC TEMP2 :DEC DELAY COUNT 
3117 017110 001402 BEQ 2$ 3BR IF DONE DELAY 
3118 017112 000137 016574 JMP SCAN :BR IF NOT DONE 
3119 017116 104001 2$: HLT 1 ERROR HUNG 
$15 017120 000745 BR ENDEX1 3GET OUT 
aisé INPUT INTERRUPT SERVICE ROUTINE 
3132 017122 022700 000017 1ISR: CMP #17,R0 sPROC. ERROR DONE? 
3125 017126 001421 BEQ 12$ ;BR IF YES 
3126 0171 005737 020050 TST RESUME 31S THIS A RESUME INTERRUPT 
3127 0171 001432 BEQ :BR IF N 
3128 017136 032711 000002 BIT #B1T1,(R1) ;CNTL OR BASE? 
3129 017142 001407 BEQ 13$ :BR IF CNTL I 
3130 017144 012761 021430 000004 MOV #BASE ,4(R1) sLOAD BASE ADDRESS 
3131 017152 012761 010000 000006 MOV #B1T12,6(R1) WITH RESUME BIT SET 
3132 017160 000404 BR 128 : CONTINUE 
3133 017162 005061 000006 138: CLR 6(R1) sSELECT FULL DUPLEX 
3134 017166 005037 020050 CLR RESUME :CLEAR RESUME FLAG 
3135 017172 142711 000040 12$: BICB #40,(R1) sCLEAR RQI 
3136 017176 105711 TSTB (R1) 31S RDI GONE? 
3137 017200 100776 BM! .72 BR IF NO 
3138 017202 005737 020050 TST RE SUME BASE OR CNTL I? 
3139 017206 001403 BEQ 14% :BR IF IT WAS CNTL 1 
3140 017210 152711 000041 B1S8 #41,(R1) sASK FOR CNTL I 
3141 017214 000002 RTI ;RETURN 
3142 017216 105011 148: CLRB (R1) sCLEAR BSEL 0 
3143 017220 000002 RTI RETURN 
3144 017222 005700 8$: TST RO FIRST TIME HERE? 
3145 017224 100006 BPL 7$ ;LOAD BASE IF MINUS 
3146 oi7eee 012761 021430 000004 MOV #BASE ,4(R1) :SET UP BASE ADDRESS 
3147 Bis 005061 000006 CLR 6(R1) CLEAR COUNT 
3148 017240 BR 3$ ; CONTINUE 
3149 017242 001003 7$: BNE 1$ sCNTL I FULL DUPLEX IF 0 
3150 017244 005061 000006 CLR 6(R1) sSELECT FULL DUPLEX 
3151 017250 000430 Be 3$ ; CONTINUE 
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3152 017252 032700 000010 
3153 017256 001013 
3154 017260 000241 
3155 017262 006100 
3156 017264 016061 020052 090004 
3157 017272 016061 020220 000006 
3158 017300 000241 
3159 017302 006000 
3160 017304 000412 
3161 017306 000241 
3162 017310 006100 
31635 017312 016061 020052 000004 
3164 017320 016061 020220 000006 
3165 017326 000241 
3166 017330 006000 
3167 017332 142711 000040 
3168 017336 105711 
3169 017340 100776 
3170 017342 0052 
3171 017344 001003 
3172 017346 152711 000041 
3173 017352 0 
3174 017354 022700 000017 
3175 7 001411 
3176 017362 032700 000010 
3177 001 
3178 017370 152711 000044 
3179 017374 
3180 017376 152711 000040 
3181 017402 
3182 017404 152711 000046 
3183 017410 000002 
3184 
3185 
3186 
3187 017412 032761 000001 000002 
3188 017420 001467 
3189 017422 005737 021304 
3190 017426 201008 
3191 7430 005237 021304 
3192 017434 022761 001000 000006 
3193 017442 001531 
3194 017444 022700 000017 
3195 017450 001041 
3196 017452 022761 001000 000006 
3197 017460 001035 
3198 017462 005200 
199 017464 012711 040000 
200 017470 032737 100000 001366 
201 017476 001405 
202 017500 012711 100000 
3203 017504 105227 000000 
$509 017510 001375 
205 017512 012737 177777 020050 
206 017520 005711 
207 017522 100376 


3 


1$: 


2$: 


3$: 


6$: 


5$: 
4$: 


OISR: 


9$: 
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FREE RUNNING TESTS 


#B1T3,R0 
2s 


RO 
RECBACRO) ,4(R1 
RCNTAB(RO) ,6(R 


RO 
3$ 


3XMIT? 
3;BR IF YES 
sCLEAR CARRY 
:MAKE RO EVEN 
;LOAD REC BUFFER 
1y:tOAD COUNT 
sCLEAR CARRY 
GET RO BACK 
: CONTINUE 
CLEAR CARRY 
VEN 


RO MAKE IT E 
XMITBACRO) ,4(R1);LOAD XMIT Feces 
RCNTAB(RO) ,6(R1); ele COUNT 


6 
#41,(R1) 
#17,R0 

4 
#B1T3,RO 
#44,(R1) 
#40,(R1) 
#46,(R1) 


CLEAR CARRY 
;PUT IT BACK 
;CLEAR RQI 
:WAIT FOR 

;RDI TO GO AWAY 


7 INC COUNT 
31F 0 ASK FOR CNTL I 
iASK FOR CNTL I 


;DONE YET? 
iBR IF YES 


:BR IF YES 

;ASK FOR REC BA/CC 
;RETURN 

SASK FOR XMIT BA/CC 
RETURN 

sFORCE ——— ERROR 
; RETURN 


INTERRUPT SERVICE ROUTINE 


#B1T0,2(R1) 
1$ 

FLAG 

9$ 

FLAG 
#B1T9,6(R1) 
10% 

#17,R0 
#B1T9,6(R1) 
11$ 

RO 
#B1T14,(R1) 
#B1T15,STATI 
+14 
#B1T15,(R1) 
#0 

74 
#-1 , RESUME 
oy 


31S THIS AN ERROR? 
BR IF NO 
i1S Bt ee DOWN INTERRUPT? 


‘VES MAKE a a 
; SHUT Ag BIT SET? 
YES ALL IS OK 

RESUME. INTERRUPT? ~~ 
BR IF NO 

:PROC ERROR BIT SET? 
;BR IF NO 

;BUMP COUNTER (10 20) 
MASTER CLEAR DEVICE 
:DMC OR KMC? 

;BR IF DM C 

;SET RUN ON KMC 

:DELAY ON KMC 


4 Al AR ts me FLAG 
‘BR IF NO 


3248 017756 022705 000020 CMP #20,R5 ‘END OF LIST? 


$526 017770 026561 020240 000006 7$: CMP en ere ; CHECK ; CORRECT REC COUNT 


017776 R IF 
3584 020600 062705 000002 ADD #2,R5 ; INCREMENT R5 
000016 CMP #16,R5 :END OF LIST? 
7$ BR IF NOT 
HLT 5 ;REC COUNT ERROR 
000004 020256 8$: MOV yt eRONTAB(R4) ;STORE REC BA 


NC_INDEX 
000006 020256 MOV 6(R1) ,RONTAB(R4): STORE a. DONE CC 


00C207 000002 BICB  #207,2(R1) :CLEAR RDO 
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CZDMH.P11  08-JUL-80 08:21 FREE RUNNING TESTS SEQ 0064 
3208 017524 01 ek 000100 000002 MOV #B1T6,2(R1) :SET 1E0 
3209 017532 O52 7 , 040000 001366 BIT weiTi4 STATI :LOOP BACK CONNECTOR? 
3210 01/540 BNE +6 “BR IF YES 
3211 017542 $53 on 004290 BIS #B 1111, (R1) :SET LINE UNIT 
3212 017546 052711 000143 BIS #163, (R1) SASK FOR PORT (BASE REQUEST) 
3213 017552 00000 RT] RETURN 
3214 017554 016137 000004 001252 118: MOV 4(R1), TEMPS “SAVE FOR ERROR TYPEOUT 
3215 017562 016137 000006 001254 MOV 6(R1), TEMPS :SAVE FOR ERROR TYPEOUT 
3216 017570 104016 HLT 16 [CNTL O ERROR 
3217 017572 besoes CMP (SP)+,(SP)+ sADJUST STACK 
3218 017574 000137 017034 JMP ENDEX! GET OUT 
3219 017600 032761 000004 000002 15: BIT #B1T2,2(R1) RECEIVE? 
3220 017606 001053 BNE ‘BR IF YES 
3221 017610 022761 020110 000004 CMP #TBUFF,4(R1) :1S XMIT BA CORRECT? 
3222 017616 001412 BEQ 4 “BR IF OK 
3223 017620 022761 020111 000004 CMP #TBUFF+1,4(R1) 31S XMIT BA CORRECT? 
3224 017626 001406 BEQ 4$ R IF YES 
3225 017630 012705 020110 MOV #TBUFF,R5 “RS = EXPECTED 
3226 017634 016137 000004 001252 MOV 4(R1), TEMPS “SAVE FOUND FOR TYPEOUT 
3227 017642 104002 HLT 2 SXMIT BA ERROR 
3228 017644 005005 4$: CLR RS RS IS INDEX REG 
3229 017646 026561 020240 000006 S$: CMP XCNTAB(RS),6(R1):1S CHAR COUNT OK? 
3230 017654 001406 BEQ 6$ “BR IF YES 
3231 017656 062705 000002 ADD #2,R5 SINC INDEX 
3232 017662 022705 000016 CMP #16,R5 : DONE LIST YET? 
3233 017666 001367 BNE 5$ :BR NO 
3234 017670 104003 HLT 3 omy. COUNT ERROR 
$5 5 Bi 7grs OS 186 000004 020312 6%: MOV 4(R1) ,XDNTAB(R2) ; STORE a DONE BA 
236 017 062702 000002 ADD #2,R2 
3237 017704 016162 000006 020312 MOV 6(R 1) ,XDNTAB(R2) ; STORE XAT DONE CC 
3238 017712 062702 000002 ADD #2,R2 
3239 017716 142761 000207 000002 BICB #207,2(R1) CLEAR NRDO 
3240 017724 000002 RTI RETURN 
3241 017726 105011 10$:  CLRB  (R1) “CLEAR SELO 
3242 017730 105061 000002 CLRB  —s--2(R1) CLEAR SEL2 
3243 017734 000002 RTI RETURN 
3244 017736 012705 000002 2$: MOV #2,85 :SET UP RS AS INDEX 
3245 017742 026561 020052 000004 CMP RECBA(RS),4(R1) :COMPARE WITH tet OF CORRECT BA'S 
3246 017750 001406 BEQ 3$ [BR IF OK? 
3247 017752 062705 000002 ADD #2,R5 ‘INCREMENT R5 
3249 017762 001367 BNE aged ‘BR IF NO 
3250 017764 104 HLT ‘REC BA ERROR 
3251 017766 005005 3$: CLR RS =R5 1S INDEX 
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3266 BUFFERS 


3268 020050 000000 RESUME: 0 
02005 RECBA: 
3270 020052 000017 XMITBA: .BLKW 17 ;REC & XMIT BA LIST 


3271 
3272 020110 TBUFF : ; TRANSMIT DATA 
3273 020110 000 001 002 .BYTE 0,1,2,3,4,5,6,7 
3274 020113 003 004 005 
3275 020116 006 007 
3276 020120 010 011 012 .BYTE 10,11,12,13,14,15,16,17 
3277 020123 013 014 015 
3278 020126 016 017 
3279 0130 020 021 022 .BYTE 20,21,22,23,24,25,26,27 
32 020133 023 024 025 
3281 0136 026 O<7 
3282 020140 030 031 032 .BYTE 30,31,52,33,34,35, 36,37 
3283 020143 033 034 035 
020146 036 037 
3285 020150 040 041 042 .BYTE 40,41,42,43,446,45,46,47 
3286 020153 043 044 045 . 
3287 020156 046 047 
32 20160 050 051 052 .BYTE 50,51,52,53,54,55,56,57 
3289 020163 053 054 055 
3 201 056 057 
3291 02017 060 061 062 .BYTE 60,61,62,63,64,65,66,67 
3292 02017 063 064 065 
3293 020176 066 067 
3294 020200 070 071 O72 .BYTE 70,71,72,73,74,75,76,77 s 
3295 020203 073 074 075 
296 020206 076 077 
3297 020210 100 101 102 .BYTE 100,101,102,103,104,105,106,107 
3298 020213 103 104 105 
44 020216 106 107 
3301 020220 000010 RCNTAB: .BLKW 10 RECEIVE COUNT TABLE 
sane 020240 000007 XCNTAB: .BLKW 7 ; TRANSMIT COUNT TABLE 
3304 020256 000016 RONTAB: .BLKW 16 RECEIVE DONE TABLE (BA/CC) 
$e52 020312 000016 XDNTAB: .BLKW 16 :XMIT DONE TABLE (BA/CC) 
3307 020346 RBUF F : 2 RECEIVER BUFFERS 
3308 020346 000104 RBUFF1: .BLKB 104 
3309 020452 000104 RBUFF2: .BLKB 104 
3310 020556 000104 RBUFF3: .BLKB 104 
3311 020662 000104 RBUFF4: .BLKB 104 
$318 20766 000104 RBUFFS: .BLKB 104 
331 021072 000104 RBUFF6: .BLKB 104 i 
3314 021176 000104 RBUFF7: .BLKB 104 
HoH 021302 000000 RBUFFE: 0 END OF RECEIVER BUFFERS 
; | 
3319 | 
| 3318 
3319 BUFFER AREA 
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040000 
100000 


100000 
000000 


004000 
000043 


021430 
000006 
000040 


000041 


000006 
000040 


EVEN 
RCOUNT: 44 
RBUF : » 
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FREE RUNNING TESTS 


=, +46 
-=.+256. 


; SUBROUTINES 


BASELD: 
sTHIS SUBROUTINE LOADS THE DMC WITH A BASE ADDRESS 
sAND PUTS DMC INTO FULL-DUPLEX MODE 


MOV #B1T14,(R1) ;MASTER CLEAR 
BIT #B1T15,STATI : CRAM? 
BEQ +6 ;BR IF NO 
MOV #B1T15,(R1) ;1F CRAM SET RUN 
INCB #0 ; DELAY 
BNE 74 ;BR IF NOT DONE DELAY 
1$: TST (R1) ;1S RUN SET? 
BPL 1$ :BR IF NO 
BIS #B1T11,(R1) ;SET LU LOOP 
BISB #43,(R1) ;BASE REQUEST 
2$: TSTB (R1) sRDY I SET? 
BPL 2$ :BR IF _NO 
MOV #BASE ,4(R1) ;LOAD BASE ADDRESS 
CLR 6(R1) CLEAR CC 
BICB #40,(R1) ;CLEAR RQI 
3$ TSTB (R1) :RDY I CLEAR? 
BAI 3$ :BR_ IF NO 
BISB #41,(R1) ;ASK FOR CNTL I 
TSTB (R1) ;WAIT FOR ROI 
BPL 648 ;BR IF NOT SETY 
CLR 6(R1) ;SET FULL DUPLEX 
BICB #40,(R1) ;CLEAR RQI 
TSTB (R1) :RDI UP? 
BM! 65$ ;BR IF YES 
RTS PC ; RETURN 


BASELH: 
THIS SUBROUTINE LOADS THE DMC WITH A BASE ADDRESS 
;AND PUTS DMC INTO HALF-DUPLEX MODE 





ee 
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C2u8H.P11  08=JUL-80 08:21 SUBROUTINES SEQ 0067 
376 
377 022146 012711 040000 MOV #B1T14,(R1) :MASTER CLEAR 
3378 022152 032737 100000 001366 BIT #B1T15,STATI CRAM? 
3379 022160 001402 BEQ +6 ‘BR IF NO 
3380 022162 012711 100000 MOV #B1T15, (R1) ‘IF CRAM SET RUN 
3381 022166 105¢27 000000 INCB #0 “DELAY 
3382 022172 001375 BNE 4 :BR IF NOT DONE DELAY 
3383 022174 005711 1$: TST (R1) 1S RUN SET? 
3384 022176 100376 BPL 1$ ‘BR IF NO 
3385 022200 052711 004000 BIS #B1T11,(R1) :SET LU LOOP 
3386 022204 152711 000043 BISB #43,(R1) ‘BASE REQUEST 
3387 022210 105711 2$: TSTB (RI) :RDY I SET? 
3388 022212 100376 BPL 2$ ;BR IF NO 
3389 022214 012761 021430 000004 MOV #BASE,4(R1) ‘LOAD BASE ADDRESS 
3390 022222 005061 000006 CLR 6(R1) “CLEAR CC 
3391 022226 142711 000040 BICB #40,(R1) ?CLEAR ROI 
3392 022232 105711 3$ TSTB ss (R11) =RDY I CLEAR? 
3393 022234 100776 BMI 3$ :BR IF NO 
3394 022236 152711 000041 BISB  #41,(R1) :ASK FOR CNTL I 
3395 022242 105711 64$: TSTB. (RI) ‘WAIT FOR RDI 
3396 022244 100376 BPL 64$ <BR IF NOT SETY 
3397 022246 012761 002000 000006 MOV #B1T10,6(R1) “SET HALF DUPLEX 
3398 022254 142711 000040 BICB  —s- #40, (R1) =CLEAR RQI 
3399 022260 105711 65$: TSTB ss (R1) =RDI UP? 
3400 022262 100776 BM! 65$ :BR IF YES 
3401 022264 000207 RTS PC RETURN 
3403 022266 RESUM 
3404 : THIS SUBROUTINE LOADS THE DMC WITH A BASE ADDRESS 
en ‘WITH RESUME BIT SET AND PUTS DMC INTO FULL-DUPLEX MODE 
3407 022266 012711 040000 MOV #B1T14,(R1) :MASTER CLEAR 
3408 022272 032737 100000 001366 BIT #BiT15,STATI > CRAM? 
3409 022300 001402 BEQ .+6 ‘BR IF NO 
3410 022302 012711 100000 MOV #B1T15,(R1) [IF CRAM SET RUN 
3411 022306 105227 000000 INCB #0 DELAY 
3412 022312 001375 BNE a4 :BR IF NOT DONE DELAY 
3413 022314 005711 1$: TST (R1) :1$ RUN SET? 
3414 022316 100376 BPL 1$ “BR IF NO 
3415 022320 052711 004000 BIS #B1T11,(R1) :SET LU LOOP 
3416 022324 152711 000043 BISB #43, (Ri) “BASE REQUEST 
3417 922330 105711 2$: TSTB. ss (RV) =RDY | SET? 
3418 022332 100376 BPL 2$ :BR IF NO 
3419 022334 012761 021430 000004 MOV #BASE ,4(R1) [LOAD BASE ADDRESS 
3420 022342 012761 010000 000006 MOV #B1T12,6(R1)  :SET RESUME BIT 
3421 022350 142711 000040 BICB #40, (Ri) *CLEAR RQI 
3428 022354 105711 3$: TSTB ss (R11) =RDY I CLEAR? 
23 022356 100776 BMI 35 :BR IF NO 
3424 022360 152711 000041 BISB #41, (R1) :ASK FOR CNTL | 
25 022364 105711 64$: TSTB (RI) WALT FOR RDI 
26 022566 100376 BPL 64$ ‘BR IF NOT SETY 
27 022370 005061 000006 CLR 6(R1) ;SET FULL DUPLEX 
28 022374 142711 000040 BICB #40, (R1) SCLEAR ROI 
9 022400 105711 65$: TSTB ss (R15 :RDI UP? 
022402 100776 BMI 65$ “BR IF YES 
3431 022406 000207 § PC = RETURN 
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3432 
3433 022406 RFRELD: 
Sete ; THIS SUBROUTINE LOADS THE DMC WITH A RECEIVE BA/CC 
3436 022406 152711 000044 BISB #44, (R1) ;REC BA/CC REQUEST 
3437 022412 105711 1$: TSTB (R1) sROY I SET? 
3438 022414 100376 BPL 1$ ;BR IF NO 
3439 022416 012561 000004 MOV (R5)+#,4(R1) ;LOAD REC BA 
3440 022422 012561 000006 MOV (R5)+,6(R1) ;LOAD REC CC 
3441 022426 142711 000040 BICB #40, (R1) sCLEAR RQI 
3442 022432 105711 2s: TS18 (R1) 31S RDY I CLEAR 
3443 022434 100776 BMI 2$ BR IF NO 
Ste 022436 000205 RTS R5 sRETURN 
3446 022440 XFRELD: 
conf ; THIS SUBROUTINE LOADS THE DMC WITH A TRANSMIT BA/CC 
3449 022440 152711 000040 BISB #40, (R1) sXMIT BA/CC REQUEST 
3450 022444 105711 1$: TSTB (R1) sRDY I SET? 
3451 022446 100376 BPL 1$ BR IF NO 
3452 022450 012561 000004 MOV (R5)+,4(R1) sLOAD XMIT BA 
3453 022454 012561 000006 MOV (R5)+,6(R1) sLOAD XMIT CC 
3454 022460 142711 000040 BICB #40,(R1) ;CLEAR RQI 
3455 022464 105711 2$: TSTB (R1) s1S RDY I CLEAR 
3456 022466 100776 BMI 2$ BR IF NO 
3457 022470 000205 RTS R5 RETURN 
3059 
60 022472 SHUTDOWN: 
oot ; THIS SUBROUTINE FORCES THE DMC TO UPDATE THE BASE TABLE 
3463 022472 042761 000207 000002 BIC #207,2(R1) ;CLEAR ANY OUTPUT DONES 
3464 022500 152711 000046 BISB #46,(R1) ASK FOR ILLEGAL REQUEST 
3465 022504 105711 1$: TSTB (R1) ;RDI SET? 
3466 022506 100376 BPL 1$ 7BR IF NO 
3467 022510 142711 000040 BICB #40,(R1) sCLEAR RQi 
3468 022514 105761 000002 2$: TSTB 2(R1) sOUTPUT DONE SET? 
3469 022520 100375 BPL 2$ BR IF NOT 
3470 022522 000207 RTS PC RETURN 
3092 
022524 052377 040522 051516 EM2: .ASCIZ <377>/TRANSMIT BA ERROR/ 
022547 377 051124 047101 EM3: -ASCIZ <377>/TRANSMIT COUNT ERROR/ 
022575 377 042522 042503 EM: eASCIZ <377>/RECEIVE BA ERROR/ 
022617 377 042522 042503 EMS: eASCIZ <377>/RECEIVE COUNT ERROR/ 
022644 051377 041505 044505 EM11: eASCIZ <377>/RECEIVE DATA ERROR/ 


Scan 
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022670 043377 042522 020105 EM12:  .ASCIZ <377>/FREE RUNNING ERROR/ 
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SUBROUTINES 
47117 051124 —EM13 
47111 042524 EM14 
054105 042520 DH1: 
054105 042520 DH2: 
042523 032114 DH3: 
040502 042523 DH4: 
046504 030503 DHS: 
EVEN 
DT1: 
004 
004 
002 
DT2: 
004 
004 
002 
DT3: 
004 
004 
002 
DT4: 
007 


<377>/CONTROL OUT ERROR/ 
<377>/INTERNAL DDCMP ERROR COUNTS NON ZERO/ 


<377>/EXPECTED FOUND ADDRESS/ 
<377>/EXPECTED FOUND/ 
<377>/ SEL4 


SEL6/ 
<3 77> /BASE 3 THRU BASE +12 / 
<377>/DMC11 IS HUNG/ 


6,4 
6,4 
4,2 


6,4 
6,4 
4,2 


6,4 
6,4 
4,2 


Tm 





SEQ 0070 








PR, SOLENT TS gE IE Che ng 6 6 ws oF 
CZDMH MACY11 30A(1052) . 


QO8-JUL-80 08:21 PAGE 72 


CZDMH.P11 08-JUL-80 08:21 SUBROUTINES SEQ 0071 
023224 001272 SAVRS 
023226 3 002 BYTE 3,2 
023230 001270 SAVR4 
023232 000002 DTS: 2 
023234 006 004 -BYTE 6,4 
023236 001272 SAVR5S 
023240 006 002 BYTE 6,2 
023242 001270 SAVR4 
023244 000003 DT6: 3 
023246 003 010 -BYTE 3,10 
023250 001272 SAVRS 
023252 003 004 -BYTE 3,4 
023254 001270 SAVR4 
023256 004 002 -BYTE 4,2 
023260 021304 FLAG 
023262 000003 DT7: 3 
023264 003 010 -BYTE 3,10 
023266 001272 SAVR5 
023270 003 004 BYTE 3,4 
023272 001270 SAVR4 
023274 004 002 BYTE 4.2 
023276 001264 SAVR2 
023300 000003 DT10: 3 
023302 003 007 OVTE 3.7 
023304 001272 SAVRS 

3306 003 004 -BYTE 3,4 
023310 001270 SAVR4 
023312 006 002 OTTE 6.2 
023314 001252 TEMPS 
023316 000002 DT11: 2 
023320 006 004 -BYTE 6,4 
023322 001252 TEMPS 
023324 006 002 -BYTE 6,2 
023326 001254 TEMP4 
023330 000010 DT12: 10 
023332 003 002 BYTE 3,2 
023334 001250 TEMP2 
023336 003 002 OTTE Sud 
023340 021434 BASE +4 
023342 003 002 VTE Jf 
023344 001252 TEMPS 
023346 003 002 -BYTE 3,2 
023350 021436 BASE +6 
023352 003 002 -BYTE 3,2 
023354 001254 TEMP4 
023356 003 002 BYTE 3,2 
023360 021440 BASE +10 
023362 003 002 -BYTE 3,2 
023364 001256 TEMPS 

003 002 -BYTE 3,2 
023370 021442 BASE+12 
023372 000002 D113: 
023374 006 004 BYTE 6,4 
023376 001272 SAVR5S 


006 002 -BYTE 6,2 
023402 001270 SAVR4 
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CZ7DMH.P11 08-JUL-80 0 SUBROUTINES SEQ 0072 
023404 -ERRTAB: 
023404 000000 0 
023406 000000 0 
023410 000000 
023412 022670 EM12 
023414 023127 DHS sHLT 1 
023416 000000 
023420 022524 EM2 
023422 023037 sHLT 2 
023424 023372 DT13 
023426 022547 —EM3 
023430 000000 sHLT 3 
023432 000000 0 
023434 022575 EM4 
023436 000000 sHLT 4 
023440 000000 0 
023442 022617 EMS 
023444 000000 
023446 000000 
023450 022575 EM4 
023452 023037 DH2 HLT 6 
023454 023232 DTS 
3456 022617 —EM5 
023460 023037 DH2 sHLT 7 
3462 023220 DT4 
023464 000000 
66 023005 DH1 pHLT 10 
023470 023244 DT6 
023472 000000 0 
023474 023005 DH1 sHLT 11 
023476 023262 DT7 
023500 000000 0 
023502 023037 DH2 sHLT 12 
023504 023220 DT4 
023506 022644 —EM11 
023510 023005 DH1 sHLT 13 
023512 023300 DT10 
023514 022670 EM12 
023516 000000 0 sHLT 14 
023520 000000 0 
023522 022670 —EM12 
023524 023037 DH2 sHLT 15 
023526 023232 DTS 
023530 022714 —EM13 
023532 023060 DH sHLT 16 
023316 D111 
023536 022737 EM14 
023540 023101 DH4 sHLT 17 
023542 023330 DT12 
023544 CORMAX: 


000001 -END 





: 
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ADRCNT= 004373 DELAY = 104413 DMS201 001514 EM4 022575 MASTEK 006142 
AUDONE 003024 DEVADR 004370 DMS202 001524 EMS 022617 MCRLF 005672 
AUSTRT 002446 DEVTAB 003010 DMS203 001534 ENDEX 016740 MCSRX 006072 
AUTO.S 010512 DH 023005 DMS204 001544 ENDEX1 017034 MDATA 007544 
AS 021430 DH2 023037 DMS205 001554 ENDEX2 017036 MEMLIM 001304 
BASELD 022030 DH3 023060 DMS206 001564 ERCTOO 001704 MEPASS 005733 
BASELH 022146 DHS 023101 DMS207 001574 ERCTO1 001710 MERRPC 006217 
BINWRD 0047 DHS 023127 DMS210 001604 ERCTO2 001714 MERRX 006117 
BITO = DISPLA 001200 DMS211 001614 ERCTO3 001720 MERR2 005760 
BIT1 = 000002 DISPRE 000174 DMS212 001624 ERCTO4 001724 MERR3S 006005 
BIT10 = 002000 DMACTV 001306 DMS213 001634 ERCTOS 001730 MILK 001322 
BIT11 = DMCM 07320 DMS214 001644 ERCTO6 001734 MLOCK 006043 
B1T12 = 010000 DMCROO 001500 DMS215 001654 ERCTO7? 001740 MNEW 006144 
B1T13 = 020000 DMCRO1 001510 DMS216 001664 ERCT10 001744 U 006704 
BIT14 = 040000 DMCRO2 001520 DMS217 001674 ERCT11 001750 MPASSX 006106 
BIT1S = 100000 DMCRO3 001530 DMS300 001506 ERCT12 001754 MPFAIL 005675 
BIT2 = DMCRO4 001540 DMS301 001516 ERCT13 001760 MQM 005666 
BITS = 000010 DMCROS 001550 DMS302 001526 RCT14 001764 MR 005755 
BITS = 000020 DMCRO6 = 001560 DMS303 001536 ERCT15 001770 MRESET= 004000 
BITS = 000040 DMCRO? 001570 DMS304 001546 ERCT16 001774 MSTCLR= 104412 
BIT6 = 000100 DMCRIO0 001600 DMS305 001556 ERCT17 002000 MTITLE 001000 
BIT? = 000200 DMCR11 001610 DMS306 001566 ERR 02700 MTSTN 006130 
BITs = DMCRI2 001620 DMS307 001576 ERRCNT 001232 MTSTPC 006031 
BIT9 = 001000 DMCR13 001630 DMS310 001606 ERRFLG 001325 MVECX 006100 
007054 DMCR14 001640 DMS311 001616 ERRMSG 005172 NEXT 001216 

BRLVL 012252 DMCR15 001650 DMS312 001626 ERRPC 002770 NOACT 007154 
BRW 3730 DMCR16 001660 DMS313 001636 ERTABO 005322 NODEV 002674 
BRX 003732 DMCR17 001670 DMS314 001646 IT = 000205 NUM 06450 
CHRCNT 712 DMCSR 001404 DMS315 001656 EXITER 005252 OISR 017412 
CKSWR 007606 DMCSRH 001406 DMS316 001666 FLAG 021304 OK 2646 
CKSWR1 007666 DMCTL 001410 DMS317 001676 FLOAT 002536 N 01302 
CKSWR2 007700 DMNUM = 001310 DMTLVL 001402 FY 02566 PACTOO 001702 
CKSWR3 DMPOS 001412 DMTVEC 001400 HALTS 005222 PACTO1 001706 
CKSWR4 007710 DMPO6 38001414 DM.END 001700 HILIM 004366 PACTO2 001712 
CKSWRS 010014 DMRLVL 001376 DM.MAP 001500 ICOUNT 001222 PACTOS 001716 
CLKX 001242 DMRVEC 001374 DONE 003734 1ISR 017122 PACTO4 001722 
CLRTAB 016444 DMS100 001502 DT1 023146 INBUF 007502 PACTOS 001726 
CNERR 007277 DMS101 001512 DT10 02.300 INCHAR 010020 PACTO6 001732 
CNT.MA 001702 DMS102 1522 D111 023316 INIFLG 001324 PACTO? 001736 
CNVRT = 104413 DMS103 001532 DT12 023330 INSTER= 104404 PACT1O 001742 
CONERR 007223 DMS104 001542 D113 023372 INSTR = 104403 PACT11 001746 
C 007114 DMS105 001552 DT2 023164 INSTR2 004166 PACT12 001752 
T 002776 DMS106 1562 DT3 023202 INTTY 012266 PACT13 001756 
CONVRT= 104410 DMS107 001572 DT4 023220 KMCM 007330 PACT14 001762 
CORMAX 023544 DMS110 001602 DT5 023232 LIMITS 004314 PACT15 001766 
CRAM 006606 DMS111 001012 DT6 023244 LIN 007016 PACT16 001772 
CREAM 001320 DMS112 001622 DT? 023262 LOBITS 004372 PACT17 001776 
CSR 006510 DMS113 001632 EM11 022644 LOCK 001220 PARAM = 104405 
CSRMAP 010514 DMS114 001642 EM12 022670 LOKFLG 001326 PARAM1 004234 
CYCLE 010060 DMS115 001652 EM15 022714 LOLIM 004364 PARBIT= 040000 
DATABP 005216 DMS116 001662 EM14 022737 LPCNT 001224 PARERR 004310 
DATACL= 104415 DMS117 001672 EM2 022524 LSTERR 001234 PASCNT 001230 
DATAHD 005204 DMS200 001504 EM3 022547 MASKX 001244 PERFOR= 004537 





ol 













CZDMH  MACY11 30A(1052) O8-JUL-80 08:21 PAGE 76 
CZ0MH.P11 08-JUL-80 08:21 SYMBOL TABLE SEQ 0074 


PFTAB 005430 SAVACT 001312 SWO2 = 000004 TST12 016204 x5 = 000105 
POPRO = 012600 SAVNUM 001314 $wO3 = 000010 TST2 013404 X6 = 000106 
POP1SP= 005726 SAVPC = 001276 Sw04 = 000020 TST3 013744 x7 = 000107 
POP2SP= 022626 SAVRO 001260 SwOS = 000040 TST4 014226 ZERO 001300 

006547 SAVR1 001262 Sw06 = 000100 TST5 014500 SCRAP = 177777 
Ss = 177776 SAVR2 001264 $w07 = 000200 TST6 014762 SENDAD 003522 
PUSHRO= 010046 SAVRS 001266 SwO8 = 000400 TST7 015224 $N = 000012 
PUSH1S= 005746 SAVR4 = 001270 SwO9 = 001000 TTST 003612 $S = 000014 
PUSH2S= 024646 SAVRS 001272 SW10 = 002000 TWOSYN= 010000 $Y = 000017 
QV.FLG 1327 SAVSP 001274 SW11 = 004000 TYPDAT 005206 = 023544 
RBUF 021362 SAVOS = 104406 SWwi2 = 010000 TYPE = 104402 BEGIN 003152 
RBUFF 020346 SCAN 0165 SW13 = 020000 TYPMSG 005106 CNVRT 004472 
RBUFFE 021302 SCAN1 017072 SW14 = 040000 VEC 006526 CONVR 004466 
RBUFF1 020346 SCAN2 016606 SWwi5 = 100000 VECMAP 012010 DATAC 005552 
RBUFF2 020452 SCOPE = 104400 TBUF 021314 WHICH 012002 DELAY 005436 
RBUFF3 020556 SCOP1 = 104401 TBUFF 020110 WRDCNT 004710 003364 
RBUFF4 020662 SHUTDO 022472 TCOUNT 021312 WRKO.F 005174 ERRTA 023404 
RBUFFS5 020766 SKIP 002632 TEMP 001416 XBX 005000 HLT 004750 
RBUFF6 021072 SOFTSW 010052 TEMP1 001246 XCNTAB 020240 INSTE 004154 
RBUFF7 021176 SPACNT= 004713 TEMP2 50 XCSR 003546 INSTR 004050 
RCNTAB 020220 SPEED 007340 TEMPS 001252 XDNTAB 020312 INST1 004070 
RCOUNT 021360 STACK = 001200 TEMP4 001254 XERR 003570 MSG 004072 
RONTAB 020256 STAT 001240 TEMPS 001256 XFRELD 022440 MSTCL 005466 
RECBA 029052 STAT? 001366 TFLAG 021306 XHEAD 006224 PARAM 004174 
RESREG 005220 STAT2 001370 TIMER = 104416 XLOC 003022 PFAIL 005336 
RESTAR 005350 STATS 001372 TKCSR 001204 XMITBA 020052 RESOS 004434 
RESTRT STRTSW 001236 TKDBR 001206 XPASS 003562 ROMCL 005504 
RESUM 022266 $v05 004402 TLAST = 016204 XSTATQ 007454 SAVOS 004374 
RESUME 020050 SWFLG 010016 TPCSR 001210 XTSTN 005330 SCOPE 003576 
RESOS = 104407 SWMES 007205 TPDBR 001212 XVEC 003554 SCOP1 003736 
RETURN 001214 SWMES1 007215 TRPOK 004730 X = 000110 START 002002 
RFLAG 021310 SWR 001202 TSTNO 001226 x1 = 000101 TIMER 005616 
RFRELD 022406 SWREG 000176 TST1 012320 X2 = 000102 TRPSR 004716 
ROMCLK= 104414 SwOO = 000001 TST10 =©—015466 x3 = 000103 -TRPTA 001330 
RUN 001316 SwO1 = 000002 TST11 015622 Lo = 000104 -TYPE 003766 


- ABS. 023544 000 


ERRORS DETECTED: 0 


CZDMH,CZDMH/NL : TOC/SOL=CZDMH.MAC ,CZDMH.P11 
RUN-TIME: 7 11 .3 SECONDS 

RUN-TIME RATIO: 28/19=1.4 
CORE USED: 25K (49 PAGES) 





